'Gives file list
'Murat AYDIN <m-aydin@usa.net>


DECLARE FUNCTION FINDFILE$ (anahtar$, attr%)
'$INCLUDE: 'QB.BI'

CLS
dosya$ = FINDFILE$("*.*", 63)    '<-- "c:\abc\xyz?.*"
DO
PRINT dosya$
dosya$ = FINDFILE$("", 63)
IF dosya$ = "" THEN EXIT DO
LOOP

END

DEFINT A-Z
FUNCTION FINDFILE$ (anahtar$, attr%) STATIC
 DIM DTA AS STRING * 44, Regs AS RegTypeX
 Regs.ax = &H1A00
 Regs.dx = VARPTR(DTA)
 Regs.ds = -1
 INTERRUPTX &H21, Regs, Regs

 IF LEN(anahtar$) THEN
	anah$ = anahtar$ + CHR$(0)
	Regs.ax = &H4E00
	Regs.cx = attr%
	Regs.dx = SADD(anah$)
	Regs.ds = -1
   ELSE
	Regs.ax = &H4F00
 END IF
 INTERRUPTX &H21, Regs, Regs
 IF Regs.flags AND 1 THEN
	FINDFILE$ = ""
   ELSE
	FINDFILE$ = MID$(DTA, 31, INSTR(31, DTA, CHR$(0)) - 30)
 END IF
END FUNCTION