Vbscript 通过comand line.rev1重命名windows中根据条件选择的多个文件

格雷廷斯

我正在尝试重命名一个控制器中的文件，这些文件采用数字格式，按照这个路径xx.pdf，xx，1.pdf，x.pdf，x，1.pdf，变成>>>xxx.pdf或xxx，1（逗号在哪里） （例如12.pdf、15.pdf、01、1.pdf、14、2.pdf等）>>>>（012.pdf、015.pdf、001、1.pdf、014、2.pdf）。我喜欢在Windows10中从命令行执行此操作

---

Sugestion，我该怎么做呢？

这是对我有效的方法（它不是封面人物，比如卡通人物或奇怪的东西），它遵循以下路径：1.pdf将变成001.pdf，01，2.pdf将变成001，2.pdf等等（这是我一直在寻找的）。但是今天，我有时间玩

Dim sFolder
Dim intLength

sFolder = "C:\pdf_to_be_order"

Set oFSO = CreateObject("Scripting.FileSystemObject")

For Each oFile In oFSO.GetFolder(sFolder).Files
  If UCase(oFSO.GetExtensionName(oFile.Name)) = "PDF" Then
    If IsNumeric(oFSO.GetBaseName(oFile)) Then 
        if InStrRev(oFSO.GetBaseName(oFile), ",") > 0 then 
            intLength = Len(oFSO.GetBaseName(oFile))
            Select Case intLength           
            Case 3
                oFSO.MoveFile oFile.path, sFolder & "\" & "00" & oFile.name
            Case 4
                oFSO.MoveFile oFile.path, sFolder & "\" & "0" & oFile.name
            Case Else
            End Select

        else
            intLength = Len(oFSO.GetBaseName(oFile))
            Select Case intLength           
            Case 1
                oFSO.MoveFile oFile.path, sFolder & "\" & "00" & oFile.name
            Case 2
                oFSO.MoveFile oFile.path, sFolder & "\" & "0" & oFile.name
            Case Else
            End Select

        end if

    end if


  End if
Next

---

你可以发布你的代码草案，我们很乐意帮助你！嗨，米海，我没时间来这里。但是谢谢你的帮助。关于不同的问题，我们（也许）再见。韩国，