This is a collection of VBScripts to deal with files 

' CREATE FOLDER
Dim fso, fldr
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.CreateFolder("C:\MyTest")

' CREATE NEW FILE AND WRITE TO IT
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject") 
Set tf = fso.CreateTextFile("c:\testfile.txt", True) 
tf.WriteLine("This is a test.") 
tf.Close

' OPEN EXISTING FILE AND WRITE TO IT AT THE END
Dim fso, tf
Const ForReading = 1, ForWriting = 2, ForAppending = 3 
Set fso = CreateObject("Scripting. FileSystemObject")
Set tf = fso.OpenTextFile("c:\test.txt", ForAppending, True)
tf.WriteLine("Testing 1, 2, 3.") 
tf.WriteBlankLines(3) 
tf.Write ("This is a test.") 
tf.Close

' OPEN EXISTING FILE AND OVERWRITE THE CONTENTS
Dim fso, tf
Const ForReading = 1, ForWriting = 2, ForAppending = 3 
Set fso = CreateObject("Scripting. FileSystemObject")
Set tf = fso.OpenTextFile("c:\test.txt", ForWriting, True)
tf.WriteLine("Testing 1, 2, 3.") 
tf.WriteBlankLines(3) 
tf.Write ("This is a test.") 
tf.Close

' OPEN EXISTING FILE AND READ FROM IT
Dim fso, tf
Const ForReading = 1, ForWriting = 2, ForAppending = 3 
Set tf = fso.OpenTextFile("c:\testfile.txt", ForReading)
s = tf.ReadLine
'OR s = tf.ReadAll
tf.Close

' MOVE FILE TO D:
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.GetFile("c:\testfile.txt")
tf.Move ("d:\testfile.txt")

' COPY FILE TO D:
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.GetFile("c:\testfile.txt")
tf.Copy ("D:\testfile.txt")

' DELETE FILE 
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.GetFile("c:\testfile.txt")
tf.Delete
'OR if fso.FileExists("c:\testfile.txt") then fso.DeleteFile("c:\testfile.txt")

' REMOVE 'OLD' XML FILES
dim fso, fldr, tf, oFiles
set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.getfolder("\\cisliveww30\AllnewsfeedsTmp")
Set oFiles = fldr.Files
For Each tf In oFiles
  If fso.GetExtensionName(fi.Name) = "xml" Then
    If DateDiff("h",tf.DateCreated,now()) > 7 Then
      tf.Delete
  End If
End If
Next