'create object for filesystem object to create read and write the data in the text file or notepadfile
Set fso = CreateObject("Scripting.FileSystemObject")
''generate folder name
foldername="c:Bogus"& randomnumber(10000,777777)
'create a folder
fso.CreateFolder (foldername)
''generate a filename
filename=foldername & "Bogusfile" & randomnumber(10000,777777) & ".txt"
'create a file
Set f1 = fso.CreateTextFile(filename, True)
'write data into file
f1.WriteLine(filename)
'read data from the file
Set f1 = fso.GetFile(filename)
|