Ich hab wiedermal ein prob wo Ihr sicher alle bescheid wisst.
Ich habe ein Arbeitsverzeichnis wo Unterverzeichnisse existieren die ich gerne auslesen will.
zur ezeit mach ich das so:
Folder = Dir(Arbeitsverzeichnis & "\", vbDirectory)
Do Until Folder = ""
If Folder = "." Then GoTo Ende2
If Folder = ".." Then GoTo Ende2
If LV1 = 100 Then GoTo Ende2
Magnification(LV1) = Strings.UCase(Folder)
LV1 = LV1 + 1
Ende2:
Folder = Dir
Loop
mein Prob ist es nun das nicht nur Verzeichnisse im Datenfeld eingelesen werden sondern auch Dateien die in dem Arbeitsverzeichnis existieren!
wie kann ich das umschreiben das es wirklich nur die Verzeichnisse einliest?
vielen Dank schon im vorraus!
christian