Question

我需要经常在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"

Answer 1

使用绝对路径（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

使用VBScript重命名文件夹

1 个答案: