HERBERS Excel-Forum - das Archiv
Thema: Prüfen ob Verzeichnis leer ist
Prüfen ob Verzeichnis leer ist
worm77
Hallo zusammen
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
AW: Prüfen ob Verzeichnis leer ist
Rudi
Hallo,
das Filesearch-Objekt gibt es seit Office 2007 nicht mehr.
Ersatz siehe Recherche.
Gruß
Rudi
AW: Prüfen ob Verzeichnis leer ist
Nepumuk
Hallo,
das FileSearch-Objekt gibt es seit Office 2007 nicht mehr. Versuch es so:
If Dir$(InputDrive & ":\" & InputDirectory & "\*.*") = vbNullString Then Exit Sub
Nepumuk
AW: Prüfen ob Verzeichnis leer ist
worm77
Danke Nepumuk
Hat bestens geklappt!
Gruss Rolf
Prüfen ob Verzeichnis leer ist
worm77
Hallo zusammen
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
AW: Prüfen ob Verzeichnis leer ist
Rudi
Hallo,
das Filesearch-Objekt gibt es seit Office 2007 nicht mehr.
Ersatz siehe Recherche.
Gruß
Rudi
AW: Prüfen ob Verzeichnis leer ist
Nepumuk
Hallo,
das FileSearch-Objekt gibt es seit Office 2007 nicht mehr. Versuch es so:
If Dir$(InputDrive & ":\" & InputDirectory & "\*.*") = vbNullString Then Exit Sub
Nepumuk
AW: Prüfen ob Verzeichnis leer ist
worm77
Danke Nepumuk
Hat bestens geklappt!
Gruss Rolf
Excel-Beispiele