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.944 mal aufgerufen. |
Neu! sevCoolbar 3.0 Professionelle Toolbars im modernen Design! Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Buchempfehlung Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||
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. |