'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)