Creates files,folders,and write in the file.
Creates files,folders,and write in the file.
API Declarations
' A form with a create button.
Rate Creates files,folders,and write in the file.
(1(1 Vote))
Dim txt as TextStream
Private Sub Create_Click()
mkdir("d:\\My Folder")
chdir("D:\\My Folder")
Set txt = FSO.CreateTextFile("D:\\My Folder\\My File.txt",TRUE)
txt.WriteLine("This is a sample text.")
txt.Write ("this is on the same line!")
txt.WriteBlankLines (10) 'writes 10 blank lines
txt.WriteLine("Ending text!!!!") 'ending text
txt.close
End Sub
Creates files,folders,and write in the file. Comments
No comments yet — be the first to post one!
Post a Comment