CODEWITHSUNDEEP
vbscript
Gary Scarma
Gary Scarma

Reputation: 21

Renaming folders with VBScript

I need to be able to often renaming multiple folders in ASP. None of the methods that I've found are working for me. Here is the current method that I am trying-

Set FS = CreateObject("Scripting.FileSystemObject")
FS.MoveFolder "/images/715", "/images/V14"

This, as well as others that I've tried, always gives me a "path not found" error. I know that the directory that the script is in has these folders in it because I've been renaming them manually. Does the script need to know the full path? What if I don't know what the full path may be?

Update:

The script runs in a directory named "/ifp". I also tried this, with and without the "/ifp" and both forward and back slashes, and it also gave path not found. Once this works on my testing server I send it to the guy with the production server so I can't use any static directory names other than the "/images/????"

Dim sCurPath
sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
FS.MoveFolder sCurPath & "\ifp\images\715", sCurPath & "\ifp\images\V14"

Upvotes: 0

Views: 28033

Answers (1)

Dan
Dan

Reputation: 4663

Use absolute paths (C:\images\715). It would look like this:

Set FS = CreateObject("Scripting.FileSystemObject")
FS.MoveFolder "C:\images\715", "C:\images\V14"

If you are using a -nix system then keep in mind that the first / is the root directory - ensure you do indeed have an images folder in the root directory path.

Also note that in order to rename the folder there cannot be trailing \'s after the folder names and the script must be run on the local machine.

If you keep getting path errors, you're passing it incorrectly somehow. Build in some error checking to see what is going wrong:

Dim tmpPath = "\ifp\images\715"
Dim newPath = "\ifp\images\V14"

If FS.FolderExists(sCurPath & tmpPath) Then
    Response.Write("The folder exists.")
    FS.MoveFolder sCurPath & tmpPath, sCurPath & newPath
Else
    Response.Write("The folder " & sCurPath & tmpPath & " does not exist.")
End If

Upvotes: 3

Related Questions