Question

我有数百个文件名带有-（破折号）0（零），例如V-45X-0892-0.pdf，V-45X-0893-0.pdf，并想从文件名中去除-0。< / p>

这是我所拥有的但不起作用。

folderspec = "C:\Dave\"
strRename = ""

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)

For Each f1 In f.Files
    Filename = folderspec & f1.Name
    NewFilename = Replace(Filename, "%-0.pdf""%.pdf", strRename)
    fs.MoveFile Filename, NewFilename
Next

MsgBox "All Done"

Answer 1

这里的代码基于您的问题，并对For Each循环进行了修改。请注意，您无需使用MoveFile，只需直接更新文件的Name属性即可：

Dim objFSO
Dim objFolder
Dim objFile
Dim sFolderSpec

sFolderSpec = "C:\Dave\"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(sFolderSpec)

For Each objFile In objFolder.Files
    If InStr(objFile.Name, "-0") > 0 Then objFile.Name = Replace(objFile.Name, "-0", "")
Next

MsgBox "All Done"

如何使用vbscript删除部分文件名

1 个答案: