codice:
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile "percorso", True
Set ts = fso.OpenTextFile("percorso", ForWriting)
ts.WriteLine "ciaooo"
ts.Close
set ts=Nothing
set fso = Nothing