Code: Select all
Dir("C:\prmpt\*")
For tt As UInteger = 0 To 10
?Dir() + " (File)"
Next
I have a directory listing routine that lists the subdirectories, but it won't list files.
Any advice?
Thanks
Code: Select all
Dir("C:\prmpt\*")
For tt As UInteger = 0 To 10
?Dir() + " (File)"
Next
Code: Select all
?Dir("C:\prmpt\*")
For tt As UInteger = 0 To 10
?Dir() + " (File)"
Next
Code: Select all
rem TEST_DIR.BAS
#include once "dir.bi"
dim inpline as string
inpline = dir("d:\prog\fb2\*.*", fbDirectory)
for tt as integer = 1 to 3
if(left(inpline, 1) <> ".") then
print left(inpline + space(30), 30) + " (dir)"
end if
inpline = dir("", fbDirectory)
next
inpline = dir("d:\prog\fb2\*.*", fbNormal)
for tt as uinteger = 1 to 10
print left(inpline + space(30), 30) + " (file)"
inpline = dir("", fbNormal)
next