Esempio di creazione file con VBScript

Tramite l'utilizzo dell'oggetto "FileSystem" in VBScript è possibile creare dei file su di una directory e inserire all'interno di essi del contenuto.
In questo esempio vengono creati 2 file xml.
Come lanciarlo? Semplice: creare un file sul desktop chiamato ad esempio "customers.vbs" ed editarlo; inserire queste righe; salvare e fare doppio click sul file appena creato.
Verranno creati due file sul percorso "C:\" (cambiare eventualmente il percorso di destinazione).

Dim xml
Dim oFS, oTextStream, fileName
dim i

For nfile=1 to 2 'It writes 2 file
 fileName="C:\\customers_" & nfile & ".xml"
 Set oFS = CreateObject("Scripting.FileSystemObject")
 If oFS.FileExists(fileName) = True Then 
  Set aFile = oFS.GetFile(fileName)
  aFile.Delete
 end if
 set oFS = NOTHING

 xml=""
 
 xml=xml+""
 For i=1 to 10 'It writes 10 elements
   xml=xml+" "
 next
 xml=xml+""

 set oFS = CreateObject("Scripting.FileSystemObject")
 set oTextStream  = oFS.OpenTextFile(fileName, 8, True)
 oTextStream.WriteLine(xml)
 oTextStream.Close
 set oTextStream  = NOTHING
 set oFS = NOTHING
 xml=""

next

WSCript.Echo "OK Done"
WScript.Quit