Function zum Verzeichnis auflisten

Übersicht

BlitzBasic

Allgemein

	Xalon Betreff: Function zum Verzeichnis auflisten	So, März 20, 2005 17:59 Antworten mit Zitat
Hi,mit folgendem code : Code: [AUSKLAPPEN] [EINKLAPPEN] Global file=WriteFile("folders.txt") getordner("C:\") End Function getordner(ordner$) verzeichnis=ReadDir(ordner) Repeat datei$=NextFile(verzeichnis) If datei$="" Exit pfad$=ordner+datei If FileType(pfad)=2 getordner(pfad) If FileType(pfad)=1 WriteLine file,pfad Forever End Function der alle verzeichnisse und dateien von C:\ in eine .txt datei schreiben soll kommt immer diese fehlermeldung: BILD das bild zeigt die meldung und den variableninhalt. PLZ HELP THX Xalon
>>Besucht doch mal meine Seite,mit NEUEN Tutorials<< User posted image

Xalon

Betreff: Function zum Verzeichnis auflisten

So, März 20, 2005 17:59
Antworten mit Zitat

Hi,mit folgendem code :
Code: [AUSKLAPPEN]

Global file=WriteFile("folders.txt")

getordner("C:\")

End

Function getordner(ordner$)

verzeichnis=ReadDir(ordner)

Repeat
datei$=NextFile(verzeichnis)
If datei$="" Exit
pfad$=ordner+datei

If FileType(pfad)=2 getordner(pfad)

If FileType(pfad)=1 WriteLine file,pfad
Forever

End Function

der alle verzeichnisse und dateien von C:\ in eine .txt datei schreiben soll kommt immer diese fehlermeldung:
BILD
das bild zeigt die meldung und den variableninhalt.

PLZ HELP
THX

Xalon

>>Besucht doch mal meine Seite,mit NEUEN Tutorials<<
User posted image

	simi	So, März 20, 2005 18:15 Antworten mit Zitat
Hi, 1. "." und ".." musst du überspringen, dass sind ja keine Ordener..... 2. Ich denke es fehlt beim Ordenerpfad am Schluss ein "\" und dann heisst die Datei dann "c:\test(\)hhh.bb"...

simi

So, März 20, 2005 18:15
Antworten mit Zitat

Hi,

1. "." und ".." musst du überspringen, dass sind ja keine Ordener.....
2. Ich denke es fehlt beim Ordenerpfad am Schluss ein "\" und dann heisst die Datei dann "c:\test(\)hhh.bb"...

	Xalon	So, März 20, 2005 20:24 Antworten mit Zitat
Wie solls denn dann ausschauen?ich check des net... THX Xalon
>>Besucht doch mal meine Seite,mit NEUEN Tutorials<< User posted image

Xalon

So, März 20, 2005 20:24
Antworten mit Zitat

Wie solls denn dann ausschauen?ich check des net...

THX
Xalon

>>Besucht doch mal meine Seite,mit NEUEN Tutorials<<
User posted image

	simi	So, März 20, 2005 20:31 Antworten mit Zitat
Zitat: Wie solls denn dann ausschauen?ich check des net... Du willst ja so etwas programmieren.... Code: [AUSKLAPPEN] [EINKLAPPEN] Global file=WriteFile("folders.txt") getordner("C:\") End Function getordner(ordner$) verzeichnis=ReadDir(ordner) Repeat datei$=NextFile(verzeichnis) If datei$="" Exit if datei<>"." and datei<>".." then pfad$=ordner+datei If FileType(pfad)=2 getordner(pfad+"/") If FileType(pfad)=1 WriteLine file,pfad end if Forever End Function Ist aber ungetestet....

simi

So, März 20, 2005 20:31
Antworten mit Zitat

Zitat:

Wie solls denn dann ausschauen?ich check des net...

Du willst ja so etwas programmieren.... Rolling Eyes

Code: [AUSKLAPPEN]

Global file=WriteFile("folders.txt")
getordner("C:\")
End

Function getordner(ordner$)
verzeichnis=ReadDir(ordner)
Repeat
datei$=NextFile(verzeichnis)
If datei$="" Exit
if datei<>"." and datei<>".." then
pfad$=ordner+datei
If FileType(pfad)=2 getordner(pfad+"/")
If FileType(pfad)=1 WriteLine file,pfad
end if
Forever
End Function

Ist aber ungetestet....

	Artemis	So, März 20, 2005 20:40 Antworten mit Zitat
simi hat Folgendes geschrieben: 1. "." und ".." musst du überspringen, dass sind ja keine Ordener..... Das sind Ordner! "." ist der übergeordnete Ordner, und ".." ist der darüber!