0

我需要能够经常在 ASP 中重命名多个文件夹。我发现的所有方法都不适合我。这是我正在尝试的当前方法-

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

这以及我尝试过的其他方法总是给我一个“找不到路径”错误。我知道脚本所在的目录中有这些文件夹，因为我一直在手动重命名它们。脚本是否需要知道完整路径？如果我不知道完整路径可能是什么？

更新：

该脚本在名为“/ifp”的目录中运行。我也试过这个，有和没有“/ifp”以及正斜杠和反斜杠，它也给出了找不到路径。一旦这在我的测试服务器上运行，我将它发送给使用生产服务器的人，所以我不能使用除“/images/????”之外的任何静态目录名称

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

1 回答 1

3

使用绝对路径 ( C:\images\715)。它看起来像这样：

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

如果您使用的是 -nix 系统，请记住第一个/是根目录 - 确保在根目录路径中确实有一个 images 文件夹。

另请注意，为了重命名文件夹，文件夹名称后面不能有\'，并且脚本必须在本地计算机上运行。

如果您不断收到路径错误，则说明您以某种方式错误地传递了它。构建一些错误检查以查看问题所在：

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
于 2013-07-09T15:02:01.313 回答