Hallo,
ich möchte mittels folgendem Code alle Unterverzeichnisse in einem best. Verzeichniss und alle darin enthaltenen Dateien listen:
dim verzeichnis as string
dim datnam as string
verzeichnis = Dir$(impfad, vbDirectory)
Do While Len(verzeichnis) &gt 0
If verzeichnis &lt&gt "." And verzeichnis &lt&gt ".." Then
MsgBox verzeichnis
....
ChDir (impfad & verzeichnis)
datnam = Dir$("*.xls")
Do While Len(datnam) &gt 0
MsgBox datnam
...
datnam = Dir$()
Loop
End If
verzeichnis = Dir$()
Loop
Bis zu dem Befehl "verzeichnis = Dir$()" funktioniert es auch.
Da ich den Dir$()-Befehl einmal für datname und einmal für verzeichnis aufrufe erhalte ich eine Fehlermeldung (LZF 5: Ungültiger Prozeduraufruf oder ungßültiges Argument). Wie kann ich dieses Problem lösen !!!
Gruß,
Christian Allinger