RosettaCodeData/Task/Create-a-file/FreeBASIC/create-a-file.basic

16 lines
369 B
Plaintext

' FB 1.05.0 Win64
' create empty file and sub-directory in current directory
Open "output.txt" For Output As #1
Close #1
MkDir "docs"
' create empty file and sub-directory in root directory c:\
' creating file in root requires administrative privileges in Windows 10
Open "c:\output.txt" For Output As #1
Close #1
MkDir "c:\docs"
Print "Press any key to quit"
Sleep