Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Problem bei vbarchiv-Beispiel: "Dateien suchen"
Autor: mahir
Datum: 28.07.03 17:51
Hallo, Ich möchte gern das folgende Beispiel verwenden, den ich von diesen Webseiten habe. Microsoft Scripting Runtime habe ich bei den Verweisen eingebunden. Ein Fehler mit: "Typen unverträglich" erscheint bei "Set Folder = FSO.GetFolder(sPath)" (fett markiert) VB6(Sp5), Win2000 Option Explicit Dim FSO As FileSystemObject Private Sub cmdSearch_Click() Dim sPath As String Dim sFileToSearchFor As String ' Verweis auf FSO-Object Set FSO = New FileSystemObject ' Startverzeichnis sPath = "C:\" ' Datei, nach der gesucht werden soll sFileToSearchFor = "test.txt" ' 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 & "\" lblPath.Caption = sPath DoEvents 'Hier kommt der Fehler "Typen unverträglich 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

Problem bei vbarchiv-Beispiel: "Dateien suchen"	143	mahir	28.07.03 17:51
Re: Problem bei vbarchiv-Beispiel: "Dateien suchen"...	817	Dieter	28.07.03 18:24
Re: Problem bei vbarchiv-Beispiel: "Dateien suchen"...	82	mahir	29.07.03 08:46
Re: Problem bei vbarchiv-Beispiel: "Dateien suchen"...	781	Dieter	29.07.03 09:12
Re: Problem bei vbarchiv-Beispiel: "Dateien suchen"...	157	mahir	29.07.03 12:31
Re: Problem bei vbarchiv-Beispiel: "Dateien suchen"...	917	horst	22.04.04 11:26

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