Mit VBA prüfen ob ein Ordner leer ist

Computer: Software & Programmierung Office Software
#1

Hallo Zusammen,

ich versuche nun schon den ganzen morgen eine Prüfung durchzuführen die erkennt ob sich in einem Ordner keine Unterordner und Dateien befinden.
Auf Dateien kann ich prüfen das funktioniert nur mit den Ordnern habe ich Probleme.
Ich bekomme immer das der Ordener leer ist obwohl sich noch ein Unterordner darin befindet.
Ich programmiere(versuche es zumindest) in VBA und Excel2000.

Hoffe jemand hat eine Antwort sonst wirds blöd.

Thomas

#2

ich versuche nun schon den ganzen morgen eine Prüfung
durchzuführen die erkennt ob sich in einem Ordner keine
Unterordner und Dateien befinden.
Auf Dateien kann ich prüfen das funktioniert nur mit den
Ordnern habe ich Probleme.
Ich bekomme immer das der Ordener leer ist obwohl sich noch
ein Unterordner darin befindet.
Ich programmiere(versuche es zumindest) in VBA und Excel2000.

Hallo Thomas,

Sub test()
Dim fs As Object, ordner As Object
Set fs = CreateObject("Scripting.filesystemobject")
Set ordner = fs.getfolder("c:\test2")
If ordner.subfolders.Count \* 1 + ordner.Files.Count \* 1 = 0 Then
 MsgBox "Ordner ist leer"
Else
 MsgBox "Ordner ist nicht leer"
End If
End Sub

Gruß
Reinhard

#3

Hallo Reinhard,

super Du hat mir sehr geholfen.
Daaannnnnkkkkkkkkeeeeee :smile:

Thomas