Ein vorgegebenes Laufwerk soll nach einer Datei durchsucht werden. Außerdem soll der Ordner angezeigt werden, der die Datei enthält. Hierfür nehmen Sie am Besten das File-System-Objekt (FSO). Für unser Beispiel benötigen Sie eine Form mit einem CommandButton (cmdSearch), ein Label-Control (lblPath) und eine ListBox (List1), sowie Unter "Projekt - Verweise" einen Verweis auf die Microsoft Scripting Runtime-DLL. Dann noch folgenden Code: 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 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 Siehe hierzu auch: Diese Seite wurde bereits 19.904 mal aufgerufen. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Buchempfehlung Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Neu! sevDTA 3.0 Pro SEPA mit Kontonummernprüfung Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. |
||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |