Datei suchen
06.02.2003 22:28:51
Micha
Was muß an folgendem Code geändert werden, daß alle Laufwerke eines Pc's nach dieser Datei durchsucht werden?
Sub Datei_Suchen()
Dim I As Long
Dim Dateiname As String
On Error GoTo Errorhandler
Dateiname = "Test.xls"
Const Verzeichnis = "D:\"
ChDir Verzeichnis
With Application.FileSearch
.NewSearch
.Filename = Dateiname
.LookIn = Verzeichnis
.SearchSubFolders = True
.Execute
For I = 1 To .FoundFiles.Count
Worksheets("Tabelle1").Range("G4").Value = .FoundFiles(I)
Next I
End With
Exit Sub
Errorhandler:
MsgBox "Datei nicht vorhanden!"
End Sub
Anzeige