Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
212to216
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
212to216
212to216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei suchen

Datei suchen
06.02.2003 21:28:51
Micha
Wer kann helfen?
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


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Datei suchen
06.02.2003 23:39:46
L.Vira

Wenn dir die Laufwerke nicht bekannt sind, musst du sie mittels
API ermitteln, oder brutal einfach versuchen, darauf zuzugreifen und einen etwaigen Fehler abzufangen.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige