Stripping a string 2

[ftpdoo]

Hi,

I have a string called "strAppPath" which contains the path of the application.

ie "c:\NP1\Script_Loader"

I wish to stip off the word Script_Loader and replace it with "Script_Editor" instead.

Any ideas?
Thankx,
Jonathan

 

[ide]

Dim strAppPath As String, strChStr As String, strFind As String
strAppPath = "c:\NP1\Script_Loader"
strFind = "Script_Loader"
strChStr = "Script_Editor"
strAppPath = Replace(strAppPath, strFind, strChStr)
MsgBox strAppPath

 

[ide]

Dim fs, f
Dim strAppPath As String, strChStr As String
Set fs = CreateObject("Scripting.FileSystemObject&quot
strAppPath = "c:\NP1\Script_Loader"
strChStr = "Script_Editor"
Set f = fs.getfolder(strAppPath)
Set f = f.ParentFolder
Set f = fs.getfolder(f.Path & "\" & strChStr)