dat$="C:\*.*"+CHR$(0)
'
fehler%=GEMDOS(78,L:V:dat$,W:&X110111)
'
DO
EXIT IF fehler%<>0
dta%=FGETDTA()
'
IF BTST(BYTE{ADD(dta%,21)},4)
PRINT "Verz. ";
ELSE
PRINT "Datei ";
ENDIF
'
PRINT CHAR{ADD(dta%,30)},
IF NOT BTST(BYTE{ADD(dta%,21)},4)
PRINT LONG{ADD(dta%,26)};" bytes ";
ENDIF
'
PRINT " "
'
fehler%=GEMDOS(79)
LOOP
edit: etwas formatierte ausgabe
Auf Laufwerken mit langen Dateinamen (FAT32, EXT2) müssen die entsprechenden Funktionen benutzt werden. (PDomain, Dreaddir)