  |
|
|
 |
 Laufwerke nach Dateien durchsuchen |
kilone 
Senior Member
Dabei seit: 13.09.2001
Beiträge: 320
 |
|
| Laufwerke nach Dateien durchsuchen |
|
Hi ich hoffe mir kann da jemand helfen. Wie muss ich das machen wenn ich z.B. die Datei test.txt suche? Es sollen alle Laufwerke durchsut werden.
__________________
Klick mich fest
|
|
02.02.2003 11:41 |
|
|
Medusa
Senior Member
Dabei seit: 10.09.2001
Beiträge: 356
Herkunft: ...von da, wo mein Haus wohnt...
|
|
Du erstellst eine FileList-, DirList- und DriveList-Box.
Kannst du auch im Code machen, ich weiß aber net wie des geht 
Nun nimmst du den 1. Eintrag der Drive-List (1. Laufwerk) und weißt dem DirList den Pfad zu.
Dann weißt du den aktuellen Pfad von DirList dem Filelist zu. Und guckst ob das File dabei is.
Wenn net, dann guckst du ob der aktuelle Ordner im DirList Unterordner hat. Wenn ja, dann weißt du dem DirList der Reihe nach einfach alle seine Einträge als Pfad zu. Und machst bei Absatz 3 wieder weiter.
Dabei solltest du den immer den Letzen Ordner "merken", dass du wieder dort zurück kannst.
Und wenn alle Ordner gecheckt wurden, machst du das selbe mit DriveList-Eintrag 2, bis zum letzten.
__________________
Grüßle, Medi
|
|
|
02.02.2003 11:57 |
|
|
kilone
Senior Member
Dabei seit: 13.09.2001
Beiträge: 320
Themenstarter 
|
|
|
|
02.02.2003 13:12 |
|
|
Lektor
gesperrt
Dabei seit: 27.07.2001
Beiträge: 298
|
|
Hi kilone und Medusa!
Die Idee, ist die richtige, hier nen paar dezente Lösungsansätze!
(Hat mich Medusa aber nicht drauf gebracht, hatte ich schon vorher erstellt. Trotzdem Gratulation Medusa, diesmal richtigen Lösungsansatz gefunden.)
Ich denk mal, daß es über die FileExists-Methode und folgende zu realisieren ist.
Syntax
Objekt.FileExists(Dateispez.)
Objekt: Ist immer der Name eines FileSystemObject.
Dateispez.: Der Name der Datei, von der Du wissen möchtest, ob sie existiert.
Du must entweder eine absolute oder relative Pfadangabe machen, wenn man davon ausgeht, daß die Datei nicht im aktuellen Ordner vorhanden ist.
Rückgabe; True or False.
Beispiel:
| code: |
1:
2:
|
Dim fso As New FileSystemObject, fil As File
Set fil = fso.FileExists("c:\test.txt") |
|
Oder GetFile-Methode
Beispiel:
| code: |
1:
2:
|
Dim fso As New FileSystemObject, fil As File
Set fil = fso.GetFile("c:\test.txt") |
|
Als Anregung noch die Path-Eigenschaft und nen Code-Bsp. für Drives Auflistung!
Beschreibung
Gibt den Pfad einer angegebenen Datei, eines angegebenen Ordners oder Laufwerks zurück.
Syntax
Objekt.Path
Das Objekt ist immer ein File-, Folder- oder Drive-Objekt.
Anmerkungen
Bei Laufwerkbuchstaben ist das Stammlaufwerk nicht enthalten. Der Pfad für das Laufwerk C lautet z.B. C:, und nicht C:\.
Der folgende Code veranschaulicht die Verwendung der Path-Eigenschaft mit einem File-Objekt:
| code: |
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
|
Sub ShowFileAccessInfo(filespec)
Dim fs, d, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = UCase(f.Path) & vbCrLf
s = s & "Created: " & f.DateCreated & vbCrLf
s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
s = s & "Last Modified: " & f.DateLastModified
MsgBox s, 0, "File Access Info"
End Sub |
|
Code-Beispiel für eine Drives Auflistung:
| code: |
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
|
Sub ShowDriveList
Dim fs, d, dc, s, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d in dc
s = s & d.DriveLetter & " - "
If d.DriveType = 3 Then
n = d.ShareName
Else
n = d.VolumeName
End If
s = s & n & vbCrLf
Next
MsgBox s
End Sub |
|
Mehr fällt mir als kreativer Beitrag im Moment net mehr ein.
(Bastel Dir daraus was, daß das Prob der absoluten oder relativen Pfadangabe löst.)
Grüßle Ihr zwei
Lektor
____________________
Wrecking Crew
|
|
|
02.02.2003 15:29 |
|
|
|
|
|
|
|
