' Gives file list in a target directory
'Murat AYDIN <m-aydin@usa.net>

     
'$INCLUDE: 'QB.BI'
DEFINT A-Z
DECLARE FUNCTION DIR$ (FileSpec$)
     
     
CONST DOS = &H21
CONST SetDTA = &H1A00, FindFirst = &H4E00, FindNext = &H4F00
FileSpec$ = "c:\"                 '<--- describe target dir
found$ = DIR$("*.*")              '<--- describe joker or file names
DO WHILE LEN(found$): PRINT found$: found$ = DIR$(""): LOOP

FUNCTION DIR$ (FileSpec$) STATIC
DIM DTA AS STRING * 44, Regs AS RegTypex
Null$ = CHR$(0)
     
Regs.ax = SetDTA: Regs.dx = VARPTR(DTA): Regs.ds = -1: INTERRUPTX DOS, Regs, Regs
IF LEN(FileSpec$) THEN
FileSpecZ$ = FileSpec$ + Null$
Regs.ax = FindFirst: Regs.cx = 0                '<---describe hidden or archive
Regs.dx = SADD(FileSpecZ$): Regs.ds = -1
        ELSE
Regs.ax = FindNext
        END IF
     
INTERRUPTX DOS, Regs, Regs
IF Regs.flags AND 1 THEN
DIR$ = ""  '<--file not found
ELSE
Null = INSTR(31, DTA, Null$): DIR$ = MID$(DTA, 31, Null - 30)
END IF
END FUNCTION