Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Laufwerk nach dateien durchsuchen....?
Autor: Gamer20
Datum: 10.05.03 10:55
Ich möchte nach bestimmten Dateien suchen lassen. wenn eine davon gefunden wurde, soll der Name in einem Label ausgegeben werden. Wie geht das? außerdem: sFileToSearchFor = "autorun.exe" sFileToSearchFor = "start.exe" (so gehts doch nicht, angeblich ungültiges Objekt). Wie lasse ich nach mehreren Datein suchen? Option Explicit Dim FSO As FileSystemObject Private Sub start_Click() Dim spath As String Dim sFileToSearchFor As String ' Verweis auf FSO-Object Set FSO = New FileSystemObject ' Startverzeichnis spath = drive1 ' Datei, nach der gesucht werden soll sFileToSearchFor = "autorun.exe" ' alle Ordner nach gewünschter Datei durchsuchen Screen.MousePointer = vbHourglass FSO_SearchFile spath, sFileToSearchFor Screen.MousePointer = vbNormal End Sub ' einzelnen Ordner durchsuchen Private Sub FSO_SearchFile(ByVal spath As String, _ ByVal sFileToSearchFor As String) Dim Folder As Folder Dim SubFolder As Folder ' Ggfs. abschließenden Backslash anfügen If Right$(spath, 1) <> "\" Then spath = spath & "\" DoEvents Set Folder = FSO.GetFolder(spath) If Dir(spath & sFileToSearchFor) <> "" Then ' Datei im Ordner gefunden ' --> Pfad in die ListBox eintragen List1.AddItem spath End If ' Ggfs. Fehler "Zugriff verweigert" ignorieren On Local Error Resume Next ' Unterordner If Folder.SubFolders.Count > 0 Then For Each SubFolder In Folder.SubFolders ' Hier wird die Funktion REKURSIV aufgerufen, ' um alle weiteren Unterordner des SubFolders ' zu ermitteln FSO_SearchFile spath & SubFolder.Name, _ sFileToSearchFor Next End If End Sub Noch etwas, ich habe die Drive Box, aber dort soll das zuletzt gewählte Laufwerk beim beenden des Programms, beim nächstem start gewählt bleiben. Aber der 1. Teil ist für mich am wichtigsten, da wäre es schön Hilfe zu bekommen.

Laufwerk nach dateien durchsuchen....?	478	Gamer20	10.05.03 10:55
Re: Laufwerk nach dateien durchsuchen....?	338	Gamer20	10.05.03 18:08
Re: Laufwerk nach dateien durchsuchen....?	517	Backslash	10.05.03 18:10

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen