Prüfen ob Verzeichnis leer ist

Bild

Betrifft: Prüfen ob Verzeichnis leer ist
von: worm77
Geschrieben am: 20.08.2015 11:25:16

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 InputDrive steht folgendes drin: C
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

Bild

Betrifft: AW: Prüfen ob Verzeichnis leer ist
von: Rudi Maintaire
Geschrieben am: 20.08.2015 11:49:47
Hallo,
das Filesearch-Objekt gibt es seit Office 2007 nicht mehr.
Ersatz siehe Recherche.
Gruß
Rudi

Bild

Betrifft: AW: Prüfen ob Verzeichnis leer ist
von: Nepumuk
Geschrieben am: 20.08.2015 11:50:08
Hallo,
das FileSearch-Objekt gibt es seit Office 2007 nicht mehr. Versuch es so:


If Dir$(InputDrive & ":\" & InputDirectory & "\*.*") = vbNullString Then Exit Sub
Gruß
Nepumuk

Bild

Betrifft: AW: Prüfen ob Verzeichnis leer ist
von: worm77
Geschrieben am: 20.08.2015 11:57:27
Danke Nepumuk
Hat bestens geklappt!
Gruss Rolf

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Prüfen ob Verzeichnis leer ist"