Hallo Community,
nach vergeblicher Suche und nach vielen Stunden Testing komme ich einfach
nicht weiter. Es ist eigentlich eine einfache Aufgabenstellung:
Prüfen, ob Unterverzeichnisse in einem Ordner vorhanden sind oder nicht.
Ich weiß, das dieses Thema schon viele Male angesprochen wurde, aber
irgendwas scheine ich noch nicht zu vetstehen.
Mein VBA:
'If Len(Dir("r:\ver\ver21503\test1" & "\*.*", vbDirectory)) = 0 Then
If Len(Dir("r:\ver\ver21503\test1" & "\*.*")) = 0 Then
MsgBox "test1 leer"
Else
MsgBox "test1 nicht leer"
End If
Die jetzige Version zeigt mir richtig an, ob im Ordner test1
Dateien zu finden sind oder nicht. Das funktioniert aber nicht bei
Verzeichnissen. Aktiviere ich nun die Zeile mit vbDirectory, so erhalte ich
immer die Meldung, daß der Ordner test1 nicht leer ist - egal, ob
sich Dateien oder Unterverzeichnisse darin befinden.
Wo liegt mein Fehler?
Danke im Voraus für jeden Tipp.
Gruß
Jochen