Dim
StrFullPath
As
String
Sub
Doit()
With
Application.FileDialog(3)
If
.Show
Then
StrFullPath = .SelectedItems(1)
Else
Exit
Sub
End
If
RepIt
".\Bibliothek\Stile (HTL)"
,
"C:\tmp\NeuesProjekt\Bibliothek\Stile (HTL)"
End
With
End
Sub
Private
Sub
RepIt(strWhat
As
String
, strWith
As
String
)
Dim
oFile, strCont
As
String
Set
oFile = CreateObject(
"Scripting.FileSystemObject"
).OpenTextFile(StrFullPath, 1)
strCont = oFile.ReadAll()
oFile.Close
strCont = Replace(strCont, strWhat, strWith)
Set
oFile = CreateObject(
"Scripting.FileSystemObject"
).OpenTextFile(StrFullPath, 2,
True
)
oFile.WriteLine (strCont)
oFile.Close
Set
oFile =
Nothing
End
Sub