ich muß die Festplatte auf das vorhandensein eines bestimmten Verzeichnisses überprüfen. Auf der Suche nach einer Lösung fand ich folgendes Makro. Kann man das so umbauen, das es nach Verzeichnissen statt nach Dateien sucht?
Danke, Arno
Sub SearchFile()
Dim iCounter As Integer
With Application.FileSearch
.FILENAME = InputBox( _
prompt:="Dateifilter:", Default:="*.xls")
.LookIn = InputBox( _
prompt:="Pfad:", Default:="c:\eigene dateien")
.SearchSubFolders = True
.Execute
If .FoundFiles.Count = 0 Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Else
For iCounter = 1 To .FoundFiles.Count
MsgBox .FoundFiles(iCounter)
Next iCounter
End If
End With
End Sub