Path-Angabe einer gefundenen Datei
20.11.2003 14:25:56
cabbydit
mit nachfolgendem Code schaue ich auf dem gesamten Laufwerk C, ob eine gewisse Datei vorhanden ist. Wenn sie gefunden wird, wird in einer MessageBox der gesamte Pfad inkl. Dateiname angezeigt.
Bis hierhin alles paletti, nun möchte ich die Datei aber auch öffnen mit dem 'Workbooks.Open' Befehl.
Also fehlt mir der Anschluss für 'Workbooks.Open........
Hier der Quellcode:
'Nachschauen, ob die Datei 'Projekte_Palm.xls' vorhanden ist:
Set fs = Application.FileSearch
With fs
.LookIn = "C:\"
.SearchSubFolders = True
.Filename = "Projekte_Palm.xls"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "Es wurde(n) " & .FoundFiles.Count & " Dateie(n) gefunden"
d = True
For ctr = 1 To .FoundFiles.Count
MsgBox .FoundFiles(ctr)
'MsgBox "Pfad zur Datei " & .FoundFiles.Path(ctr)
Next ctr
Else
MsgBox "Datei nicht gefunden, Makro wird beendet"
d = False
Exit Sub
End If
End With
'Hier soll es dann weitergehen mit: Workbooks.Open.....
Freue mich über schnelle Hilfe...
Gruß, Andre