; DirList
; -------
; Simple directory lister
;
report on

:restart
dirbox Enter directory to list,A,dr
console Directory List,Listing file names from %A...||,,30|30,250|400
setvar A,%A\\*.*
setvar B,0
findfile %A,A
iferror end
incvar B
console %A|

:loop
nextfile A
iferror end
console %A|
incvar B
goto loop

:end
console |Total files = %B|
msgbox Directory List,Completed.  List again ?,68,C
ifmsg YES,restart
conoff