1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Const ForReading = 1, ForWriting = 2
Dim fso, f, MyFile, oShell
FileName = "Processeur 03-2011.xml"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(FileName, ForWriting, True)
f.WriteLine "<?xml version=""1.0"" encoding=""utf-8"" standalone=""yes""?>"
f.writeline "<CSVImport>"
f.writeline " <Version>8.0.3.2</Version>"
f.writeline " <Date>"
f.writeline " <Start>2011-04-01-07-00-00</Start>"
f.writeline " <End>2011-05-01-07-00-00</End>"
f.writeline " </Date>" |
Partager