use USERPROFILE variable with OpenTextFile?

[cbsarge]

I have this part of a script I'm writing that I'd like use to find a bit of text in a results file and replace it with some other text. It is not working and I was hoping someone could tell me how to get it to work!

Thanks in advance!

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(%USERPROFILE% & "\Desktop\Systems.txt", ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "Error:", "System is blah - no information will be retrieved!")

Set objFile = objFSO.OpenTextFile(%USERPROFILE% & "\Desktop\Systems.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close

[!]The AutoSavers![/!]

 

[PHV]

It is not working
What happens ? any error message ? computer crash ? unexpected behaviour ? ...

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[cbsarge]

It says:

Error: invalid character
Code: 800A0408
Source microsoft vbscript compilation error

[!]The AutoSavers![/!]

 

[PHV]

Which line of code raises the error ?
Probably the 1rst with %USERPROFILE% !
Have a look here:

http://msdn.microsoft.com/en-us/library/0ea7b5xe(VS.85).aspx

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[cbsarge]

Thanks for the link!

Here is the working code:

Const ForReading = 1
Const ForWriting = 2

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strDesktop & "\Systems.txt", ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "Error:", "System is blah - no information will be retrieved!")

Set objFile = objFSO.OpenTextFile(strDesktop & "\Systems.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close

[url=http://cbsarge.com][!]The AutoSavers![/!][/url] [2thumbsup]