Question

大事，

我正在尝试按照以下路径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）。我喜欢在Windows 10的命令行中执行此操作。

怀孕，我该怎么办？

Answer 1

这是对我有用的（不是诸如“³³”之类的掩体字符或其他奇怪的字符），它遵循以下这种用法：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

通过comand行.rev1重命名Windows中由条件选择的多个文件

1 个答案: