Prüfen ob Verzeichnis leer ist
20.08.2015 11:25:16
worm77
Möchte im VBA prüfen, ob ein Input-Vezeichnis leer ist.
Habe über's Internet folgenden Code gefunden und angepasst:
With Application.FileSearch
.NewSearch
.LookIn = InputDrive & ":\" & InputDirectory & "\"
.SearchSubFolders = False
.Filename = "*" ' Alle Dateien
If .Execute() = 0 Then Exit Sub
End With
In der Variable InputDirectory steht folgendes drin: \temp\Input
Wenn ich's ausführen will, erhalte ich folgende Fehlermeldung:
Run-time error '445'
Object doesn't support this action
Es war ein älterer Forums-Eintrag... vielleicht hat sich da was an der Syntax verändert?
Wäre toll, wenn ihr mir da ne Lösung hättet.
Besten Dank im Voraus und
Gruss Rolf