07-24-2008 12:54 PM
07-24-2008 01:12 PM
Sorry about the duplicate posts I wanted to add some info to the original message, but the board would not let me. Here is a better description of the problem.
07-24-2008 03:45 PM
Sub FileReplace(ByRef sgFilename, ByRef sgPathStart)
Dim oFile
Dim sgContent
' Read
Set oFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(sgFilename,,,-2)
sgContent = oFile.ReadAll()
Call oFile.Close()
' Replace
sgContent = Replace(sgContent,"PATH_START",sgPathStart)
' Write
Set oFile = CreateObject("Scripting.FileSystemObject").CreateTextFile(sgFilename,true)
Call oFile.Write(sgContent)
Call oFile.Close()
End Sub
Matthias Alleweldt Project Engineer / Projektingenieur | Twigeater? |
07-25-2008 11:36 AM
Thanks for the help. I have not used the FSO methods much, so I will have to exlpore what other activities would be suited for that method.
Again Thanks,
Wayne