falsche Dateiauflistung

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

juse4pro

Betreff: falsche Dateiauflistung

BeitragFr, Mai 30, 2008 18:39
Antworten mit Zitat
Benutzer-Profile anzeigen
hi,

ich glaube, dass meine überschrift erklärt was ich für probs habe...
ich habe im durchsuchtem Ordner, genau 1 Ordner

dieser wird aber hier nicht in den DIM gespeichert
hier mal der Code: [AUSKLAPPEN]
Dim weapon_paths$(32)


Function SearchForWeapons()
   Local i
   Local file$
   Local dir=ReadDir("weapons\")
   For z=0 To 32
      weapon_paths$(z)=""
   Next
   
   Repeat
      file$=NextFile(dir)
      
      If FileType("weapons\"+file$) = 2 Then
         weapon_paths$(i)=file$
         If i<32 Then i=i+1
         Print file
      EndIf

      If file$="" Then finish=1
   Until finish=1
   
   
   
   For z=0 To 32
      Print weapon_paths$(z)
   Next
   
   WaitKey
End Function



SearchForWeapons()



wieso?
help
Portfolio |LinkedIn |XING

Eingeproggt

BeitragFr, Mai 30, 2008 18:42
Antworten mit Zitat
Benutzer-Profile anzeigen
Du musst für FileType einen absoluten Pfad angeben. Siehe CurrentDir.

mfG, Christoph

juse4pro

BeitragFr, Mai 30, 2008 18:57
Antworten mit Zitat
Benutzer-Profile anzeigen
funtz leider immer noch net:
Code: [AUSKLAPPEN]

      If FileType(CurrentDir$()+"weapons\"+file$) = 2 Then
Portfolio |LinkedIn |XING

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group