Hi
vielleicht so:
declare listbox1&,listbox2&,anzahl%,i%
ClearList
ChDir "f:\movies\"
AddFiles *"*.mp3"
cls 'oder WINDOW 0,0-0,0 unsichtbar
listbox1&=createlistbox(%hwnd,"",0,0,0,0) 'Zum Füllen
Listbox2&=@ListBox$("MP3-Files / einlesen",1)
movelisttolist(Listbox1&)
let anzahl%=@GetCount(Listbox1&)
Assign #1,"C:\LISTE.TXT" 'Speicherort
REWRITE #1
whilenot equ(i%,anzahl%)
inc i%
print #1,@GetString$(listbox1&,i%)
wend
close #1
PRINT "Fertig"
Waitinput
|