Sub
MeinCode()
Dim
StrFullPath
As
String
Dim
oFile, strCont
As
String
StrFullPath =
"E:\VBA\Musterprojekt.ipj"
Set
oFile = CreateObject(
"Scripting.FileSystemObject"
).OpenTextFile(StrFullPath, 1)
strCont = oFile.ReadAll()
oFile.Close
strCont = Replace(strCont,
".\Bibliothek\Stile (HTL)"
,
"C:\tmp\NeuesProjekt\Bibliothek\Stile (HTL)"
)
Set
oFile = CreateObject(
"Scripting.FileSystemObject"
).OpenTextFile(StrFullPath, 2,
True
)
oFile.WriteLine (strCont)
oFile.Close
Set
oFile =
Nothing
End
Sub