Problem mit Nextfile

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

 

Chris02

Betreff: Problem mit Nextfile

 BeitragMi, Nov 09, 2005 18:30
Antworten mit Zitat
Benutzer-Profile anzeigen
BlitzBasic: [AUSKLAPPEN] 
Graphics 640,480,0,3
Stop 
Ordnereingabe$= Input (\"Welche Files ordnen? \")
OrdnerAlt= ReadDir(Ordnereingabe)
Repeat 
	AktuellesFile$=NextFile(OrdnerAlt)

If Aktuellesfile=""
Exit
EndIf
Fileinarbeit=ReadFile(Aktuellesfile)

Artistfileinarbeit=Mid(Right(Fileinarbeit,128),33,30)
Print Artistfileinarbeit
WaitMouse
Forever[/syntax]

wollte mal so aus spass ein proggie schreiben, dass Mp3s sortiert, aber da hab ich ein problem:
BlitzBasic: [AUSKLAPPEN] 
	AktuellesFile$=NextFile(OrdnerAlt)
liefert immer "."

DA

 BeitragMi, Nov 09, 2005 18:44
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo,

BlitzBasic: [AUSKLAPPEN] 

mydir = ReadDir(\"c:\\")

bla = NextFile(mydir)


Mfg
Deutscher Blitz Basic Chat

Rallimen

Sieger des 30-EUR-Wettbewerbs

BeitragMi, Nov 09, 2005 18:45
Antworten mit Zitat
Benutzer-Profile anzeigen
das hängt mit dem Dateiaufbau zusammen, in jedem Ordner gibt es "." und ".."
du mußt eine zusätzliche if einbauen um diese zu überspringen, dann gehts auch!
BlitzBasic: [AUSKLAPPEN] 
If AktuellesFile$ <> \".\" And AktuellesFile$ <> \"..\" Then
[BB2D | BB3D | BB+]
 

Chris02

 BeitragMi, Nov 09, 2005 19:07
Antworten mit Zitat
Benutzer-Profile anzeigen
und das nächste Problem:
BlitzBasic: [AUSKLAPPEN] 
Graphics 640,480,0,3
Stop 
Ordnereingabe$=Input (\"Welche Files ordnen? \")
OrdnerAlt= ReadDir(Ordnereingabe)
Repeat
.a 
	AktuellesFile$=NextFile(OrdnerAlt)
	If Aktuellesfile=\"\"
		Exit
	EndIf
	If Aktuellesfile=\".\" Or Aktuellesfile =\"..\" Goto a
	Fileinarbeit=ReadFile(AktuellesFile$)
	
	Artistfileinarbeit$=Mid(Right(Fileinarbeit,128),33,30)   
	Print Artistfileinarbeit
	WaitMouse  
Forever


BlitzBasic: [AUSKLAPPEN] 
Fileinarbeit=ReadFile(AktuellesFile$)

Liefert immer Null, warum?

Hubsi

 BeitragMi, Nov 09, 2005 19:10
Antworten mit Zitat
Benutzer-Profile anzeigen
Weil die Files in einem Unterordner liegen. Den musst Du natürlich bei dem ReadFile berücksichtigen: file=readFile(ordnereingabe+akuellesfile) Very Happy
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group