Rubrik: Dateisystem · Ordner & Verzeichnisse | VB-Versionen: VB6 | 30.04.10 |
Ermitteln des neuesten Ordners eines Verzeichnisses Eine Funktion, mit der sich schnell der neueste Ordner eines bestimmten Verzeichnisses ermitteln lässt. | ||
Autor: Dieter Otter | Bewertung: | Views: 8.181 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Sie wollen/müssen wissen, welcher Ordner innerhalb eines Verzeichnisses zuletzt erstellt wurde?
Eine Möglichkeit wäre, alle Ordner zu ermitteln und deren Erstellungsdatum miteinander zu vergleichen:
Public Function FolderLastCreated(ByVal sPath As String) As String Dim oFSO As Object Dim oFolder As Object Dim oSubFolder As Object Dim vDate As Date Dim sFolder As String On Error GoTo ErrHandler ' Verweis auf das FSO-Objekt Set oFSO = CreateObject("Scripting.FileSystemObject") ' Start-Ordner Set oFolder = oFSO.GetFolder(sPath) ' jetzt alle Unterordner durchlaufen und ' Erstellungsdatum miteinander vergleichen For Each oSubFolder In oFolder.SubFolders If oSubFolder.DateCreated > vDate Then sFolder = oSubFolder.Name vDate = oSubFolder.DateCreated End If Next FolderLastCreated = sFolder ErrHandler: ' Objekte zerstören Set oSubFolder = Nothing Set oFolder = Nothing Set oFSO = Nothing End Function
Aufrufbeispiel:
' zuletzt erstellten Ordner im Verzeichnis d:\temp ermitteln Dim sFolder As String sFolder = FolderLastCreated(sPath) MsgBox "Zuletzt erstellter Ordner: " & sFolder