Hallo,
wie kann man mit VB6 alle Dateien eines Ordners inkl. aller Unterordner ermitteln?
Gruß
Gunter
Hallo Gunter!
wie kann man mit VB6 alle Dateien eines Ordners inkl. aller
Unterordner ermitteln?
Am einfachsten mit einer rekursiven Funktion. Sie durchläuft alle Unterordner und findet alle darin liegenden Dateien.
Genaueren Code kann ich dir leider nicht liefern, da ich schon lange nichts mehr mit VB6 gemacht habe. Anbei nur ein Codeschnippsel aus VB.NET:
'Der "Start"-Ordner wird als Argument übergeben
Private Sub UnterOrdner(ByVal Ordner As String)
Dim odOrdner As New DirectoryInfo(Ordner)
For Each odUnter As DirectoryInfo In odOrdner.GetDirectories
'Für jeden Unterordner wird diese Schleife durchlaufen
'und diese Funktion rekursiv aufgerufen
UnterOrdner(odUnter.FullName)
Next
For Each ofDatei As FileInfo In odOrdner.GetFiles
'Diese Schleife wird für jede Datei durchlaufen
'So kann jede Datei verarbeitet werden
Next
End Sub
mfg
christoph
Hallo Christoph,
danke für dein Info.
Habe inzwischen im www etwas gefunden.
Gruß
Gunter