![]() |
BCX Console Demonstration Program S48.bas |
DIM
A$ A$=
COMMAND$
IF
A$=
""
THEN
A$=
"*.*"
ShowDir(
A$)
SUB
ShowDir(
b$)
! WIN32_FIND_DATA FindData; ! HANDLE FileHandle; !int
found; ! FileHandle=
FindFirstFile(
b,&
FindData)
; ! found=
(
int
)
FileHandle; !while
(
found !=
0
)
! { ! printf(
"s\n"
,FindData.cFileName)
; ! found=
FindNextFile(
FileHandle,&
FindData)
; ! } ! FindClose(
FileHandle)
;END
SUB