PureBoard

Verfasst: **28.01.2006 10:58**

Hallo,
ich möchte eine Zufalls datei aufrufen. gut so schwer ist das ja nicht (dachte ich mir)

ich habe das wie folgt gemacht:

Code: Alles auswählen

  While NextDirectoryEntry() = 1
;    Anzahl.l + 1
    z = Random(10000)
    Debug Anzahl.l
    Debug DirectoryEntryName()
    If y <> 1
      If z = 0
        NewIMG$ = IMG$ + DirectoryEntryName()
        y = 1
      EndIf
    EndIf
  Wend

mein proplem ist jetzt wenn eine mänge daten in dem Verzeichnis sind dann bekomme ich immer nur die ersten paar ausgegeben.

kann man das nicht anderst schreiben das man auch andere Daten bekommen kann die weiter hinten kommen?

Verfasst: **28.01.2006 11:17**

eine möglichkeit:

Code: Alles auswählen

Structure Files
  FileName.s
EndStructure

NewList Files.Files()

If ExamineDirectory(0, "C:\WINDOWS", "*.*")
  
  Repeat
    
    FileType = NextDirectoryEntry()
    If FileType = 1
      FileName.s = DirectoryEntryName()
      If FileName
        AddElement(Files())
        Files()\FileName = FileName
      EndIf
    EndIf
    
  Until FileType = 0
  
EndIf

Random = Random(CountList(Files()) - 1) + 1
If Random > 0
  SelectElement(Files(), Random - 1)
  MessageRequester("TEST", "Your random file is "+Files()\FileName)
EndIf

End

c ya,
nco2k

Verfasst: **28.01.2006 11:55**

Super danke das ist wesendlich efektiver und schneller!

MfG Kain

Verfasst: **28.01.2006 20:45**

Schneller?
ö.Ö Das durchsucht doch die ganze Festplatte nach Dateien?

Naja...

Gr33tz
Tafkadasom2k5

Verfasst: **28.01.2006 20:48**

erm... nein? nur den angegebenen ordner, in dem fall "C:\WINDOWS".

c ya,
nco2k

PureBoard

Zufallsdatei

Zufallsdatei