Verzeichnis ermitteln und an variable weitergeben
23.04.2006 11:42:23
Norman
Ich möchte mittels VBA erreichen, dass das Verzeichnis, indem sich eine bestimmte Datei ("Tabelle1.xls") befindet an eine Variable (p) übergeben wird und das Ergebnis in einer MsgBox dargestellt wird. Folgenden Ansatz habe ich:
(Die Tabelle darf jdeoch dafür nicht geöffnet werden!!!)
Dim p As String
With Application.FileSearch
.NewSearch
.LookIn = "F:\"
.SearchSubFolders = True
.Filename = "Tabelle1.xls"
If .Execute > 0 Then
p = .FoundFiles(1).Path -> Hier bekomme ich immer eine Fehlermeldung
MsgBox p
End If
End With
Vielen Dank im Voraus.
Norman
Anzeige