Hello,

I'm writing this program to parse XML files and take the data out and put it into an SQL database. The XML is not
very well formatted. It has "&" and I have to use a replace function to put in "&". I use the FileSystemObject to load the file with .GetFile. After I do the replacing I need to Save the File. Coming from the ASP world I was amazed when I couldn't simply resave the file after doing this replacing. I have to becuase the parser takes the name of the XML file to be parse and not the object that contains the file. I suppose I could create a new file and use the TextStream to rewrite it line by line. This seems like a lot of extra hassle.
Any help very much appreciated.

sample

Function ReplaceAmp(strString)
If InStr(Trim(strString), "&") > 0 Then
ReplaceAmp = Replace(Trim(strString), "&", "&", 1, -1, 1)
Else
ReplaceAmp = strString
End If
End Function

Set objArticles = CreateObject("Scripting.FileSystemObject")
Set objFile = objArticles.GetFile("K:\general\news\msb-iij\ukm19-06-2000.xml")
cleanXML = ReplaceAmp(objFile)
cleanXML.Save 'this is what I assumed would work
MsgBox ("hello")

Thanks,
Tantulus