How to create xml Files with vba? 1

[Guest_imported]

Hi,

I wrote some code, which creates a string with xml content. Now i want to save this string as file, if possible with the extension .xml, if not as .txt

Thanx for help.

 

[ide]

Sub CreateAfile
Set fs = CreateObject("Scripting.FileSystemObject&quot
Set a = fs.CreateTextFile("c:\testfile.xml", True)

a.WriteLine("This is a test.&quot

a.Close
End Sub ide

 

[Guest_imported]

It works, thanks.