11 lines
270 B
Text
11 lines
270 B
Text
|
files #f, "c:\myDocs" ' check for directory
|
||
|
|
if #f hasanswer() then
|
||
|
|
if #f isDir() then ' is it a file or a directory
|
||
|
|
print "A directory exist"
|
||
|
|
else
|
||
|
|
print "A file exist"
|
||
|
|
end if
|
||
|
|
else
|
||
|
|
shell$("mkdir c:\myDocs" ' if not exist make a directory
|
||
|
|
end if
|