Hmmm ich glaube zu verstehen was Jürgen meint.
Versuch es mal mit dieser banalen Lösung ;)
' CODE ERZEUGT MIT ROKO'S OBJECT CREATOR V 2.5
' DATUM 05.05.2002 um 19:56 Uhr
SETTRUECOLOR 1
DECLARE ENDE%
DECLARE SORTEDLISTBOX1%
Declare user$[50],zahl%
WINDOWSTYLE $003F
WINDOW 22,20-640,500
WINDOWTITLE "Neues Fenster"
CLS @RGB(212,208,200)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
' Hier kann ggf. Ihr Menü hin
SORTEDLISTBOX1% =CREATE("SORTEDLISTBOX",%HWND,"SORTEDLISTBOX1",0,0,0,0) 'Verstecken
' Hier könnte eine Windowsversionsabfrage hin um
' in den richtigen Ordner zu wechseln.
' In diesem Beispiel ist es der Ordner von Windows XP
CHDIR "C:\Dokumente und Einstellungen"
AddFiles "*.*"
MoveListToList(Sortedlistbox1%)
ClearList
Whilenot equ(zahl%,@GetCount(Sortedlistbox1%))
let user$[zahl%]=@GetString$(Sortedlistbox1%,zahl%)
let user$[zahl%]=@Translate$(user$[zahl%],"[","")
let user$[zahl%]=@Translate$(user$[zahl%],"]","")
if neq$(user$[zahl%],".")
if neq$(user$[zahl%],"..")
' Hier müssen nur noch Filter für Systemordner hin
' ´z.B.: All Users rausfiltern u.s.w.
print user$[zahl%]
endif
endif
endif
inc zahl%
wend
WHILENOT ENDE%
WAITINPUT
If @EQU(%KEY,2)
LET ENDE%= 1
ENDIF
WEND
In der Hoffnung richtig zu liegen ...
Rolf
|