Office: Ordner vorhanden und leer?

User · 2. Dezember 2003

Hallo zusammen,

Ich möchte per VBA überprüfen ob der Ordner "C:\Beispielordner\" existiert und ob dieser Ordner keinerlei Dateien enthält.

Habe leider gar keine Ahnung, wie ich das anstellen könnte.

Hoffe ihr könnt mir helfen.

Gruß Jens

:)

eggzess · 3. Dezember 2003

moin,

ob er existiert geht bei mir so (Win NT und Office 97)

Code:

Sub test()
If Dir("w:\test", vbDirectory) "" Then
MsgBox "vorhanden"
Else
MsgBox "nicht vorhanden"
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss eggzess

eggzess · 3. Dezember 2003

moin,

und das andere in kombination mit dem ersten sieht schnell zusammengesucht so aus:

Code:

Sub test()

If Dir("w:\test", vbDirectory) "" Then

Set fs = Application.FileSearch
With fs
.LookIn = "w:\test"
.FileName = "*.*"

If .Execute > 0 Then
MsgBox "es wurden " & .FoundFiles.Count & _
" file(s) gefunden."

For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "Keine Dateien"
End If
End With
Else
MsgBox "nicht vorhanden"
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

das ganze noch schön einrücken und anpassen und hoffen das jinx das nicht sieht.

gruss eggzess

User · 4. Dezember 2003

Danke eggzess.

Starkes Skript!
Löst alle meine Probleme (inclusive evtl. noch zukünftiger).

Wüsste gar keinen Grund warum man dieses Skript vor anderen Leuten verstecken sollte.

Gruß Jens

Office: Ordner vorhanden und leer?

Ordner vorhanden und leer?

Ordner vorhanden und leer?

Ordner vorhanden und leer?

Ordner vorhanden und leer? - Similar Threads - Ordner vorhanden

Outlook Mails im Ordner Speichern wenn Name schon vorhanden ist automatisch mit Zahl ergänzen

Hyperlink prüft ob Ordner vorhanden ist, ansonsten erstellen

Desktoppfad auslesen und Ordner anlegen (wenn nicht vorhanden)

Prüfen ob Ordner vorhanden, dann abspeichern

*.csv aus Ordner automatisiert in vorhandene Acces-Tabelle importieren

Persönlicher Ordner drei mal vorhanden

Vorhandene Mails in Ordnern automatisch eine Regel erstellen