Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Mit dem FileSystemObject geht das so...
Autor: effeff
Datum: 11.03.05 16:08
Tausch die Datei- und Verzeichnisnamen bitte auf deine Verhältnisse aus... ;o) Option Explicit Private Sub Command1_Click() Dim strOrdner As String 'Variable, in die dein Hauptordner gefügt wird Dim strDatei As String 'Variable für den Dateinamen Dim strGesuchteDatei As String 'Variable für gesuchten Dateinamen Dim fld As Object 'Objekt-Variable für Folder Dim sfld As Object 'Objekt-Variable für Subfolders Dim fil As Object 'Objekt-Variable für File Dim fso As Object 'Objekt-Variable für FileSystemObject Dim blGefunden As Boolean Dim strGefunden As String 'Variable zum Eintragen des "Fundortes" Dim strArr() As String 'Array zum Aufsplitten von strGefunden Dim intArr As Integer 'Zählvariable für Array Dim strMeldung As String 'Variable zum Ausgeben der Schlussmeldung Set fso = CreateObject("Scripting.FileSystemObject") blGefunden = False strOrdner = "d:\massendaten\bilder\" strDatei = "2Y010007.txt" strGesuchteDatei = Replace(strDatei, ".txt", ".jpg") Set fld = fso.getfolder(strOrdner) For Each sfld In fld.subfolders For Each fil In sfld.Files If fil.Name = strGesuchteDatei Then blGefunden = True MsgBox fil strGefunden = strGefunden & fil & "|" End If Next Next If blGefunden = True Then strMeldung = "Die Datei wurde in folgenden Verzeichnissen gefunden:" & vbCrLf strArr() = Split(strGefunden, "|") For intArr = 0 To UBound(strArr()) - 1 strMeldung = strMeldung & strArr(intArr) & vbCrLf Next intArr Else strMeldung = "Die Datei wurde leider nicht gefunden!" End If MsgBox strMeldung End Sub EALA FREYA FRESENA

Datei Vergleich	582	cobra1251	11.03.05 13:59
Z. B. so...	379	effeff	11.03.05 14:12
Re: Z. B. so...	395	cobra1251	11.03.05 15:14
Mit dem FileSystemObject geht das so...	516	effeff	11.03.05 16:08
Re: Mit dem FileSystemObject geht das so...	371	cobra1251	15.03.05 16:49
Re: Mit dem FileSystemObject geht das so...	444	VestMerkur	15.03.05 17:17
Schau dir mal mein Beispiel genau an...	361	effeff	15.03.05 17:25

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