Festplatte nach einer bestimmten Dateiendung durchsuchen?
Übersicht
BlitzBasic BlitzPlus
maxinetBetreff: Festplatte nach einer bestimmten Dateiendung durchsuchen? |
 Do, Apr 27, 2006 14:47Antworten mit Zitat 
|
|
|---|---|---|
|
Liebe Forengemeinde!
Ich möchte meine Festplatte nach bestimmten Dateiendungen durchsuchen. Das funktioniert aber irgendwie nicht wirklich. Hier mal mein ansatz-Code: Code: [AUSKLAPPEN] Function lese(dir$)
Verz=ReadDir(dir$) Repeat Datei$=NextFile$(Verz) If Datei$="" Then Exit If FileType("C:\"+Datei$) = 2 Then If Datei$ <> "." And Datei$ <>".." Then DebugLog "Ordner:" + Datei$ lese("C:\"+Datei$) EndIf Else If Datei$<>".." Then Print "Datei:" + Datei$ EndIf End If Forever Print "-Ende-" Print "" CloseDir Verz End Function lese("C:\") Stop Der durchsucht die Unterordner irgendwie dann nicht mehr. Woran liegt das? Gruß Maxinet |
||
|
Jan_Ehemaliger Admin |
Do, Apr 27, 2006 14:58 Antworten mit Zitat
|
|---|---|---|
| ersetze in der Function "C:\" durch dir$ | ||
| between angels and insects | ||
maxinet |
Do, Apr 27, 2006 16:59 Antworten mit Zitat
|
|
|---|---|---|
|
hm....
Der durchsucht trotzdem nicht die Unterordner. Ab dem 3. unter-Ordner sucht der irgendwie nicht mehr weiter ... Warum das? gruß maxinet |
||
|
Der Wanderer |
Do, Apr 27, 2006 17:16 Antworten mit Zitat
|
|---|---|---|
|
Du konkatenierst den Filenamen mit dem aktuellen Pfad nicht korrekt.
Das erste heisst C:\ dann C:\mydir Deshalb geht es noch. Das dritte wäre dann aber C:\mydirmysubdir aber es muss C:\mydir\mysubdir sein. Am besten du machst thisFile$ = dir$ + "\"+Datei$ und fängst mit "C:" an. Das gilt für den FileType Befehl als auch lese(). Oder du verbindest den Pfad mit der Datei mithilfer einer Win32 API funktion, wenn es sowas gibt. |
||
maxinet |
Do, Apr 27, 2006 17:38 Antworten mit Zitat
|
|
|---|---|---|
|
Super, es funktioniert!
1000-Dank!! Gruß maxinet |
||
Übersicht
BlitzBasic BlitzPlus
Powered by phpBB © 2001 - 2006, phpBB Group