RosettaCodeData/Task/Create-a-file/VBScript/create-a-file.vb

10 lines
237 B
VB.net
Raw Permalink Normal View History

2015-11-18 06:14:39 +00:00
Set objFSO = CreateObject("Scripting.FileSystemObject")
'current directory
objFSO.CreateFolder(".\docs")
objFSO.CreateTextFile(".\docs\output.txt")
'root directory
objFSO.CreateFolder("\docs")
objFSO.CreateTextFile("\docs\output.txt")