Question

我的服务器上有一个VB脚本（* .vbs），如果存在这样的文件，则由内置的FileSystemObject进行检查...

"C:\path\{filename}.weekly.rar"

如果存在，则将文件复制到同一路径中，但重命名为以下

"C:\path\{filename}.monthly.rar"

使用此代码

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("C:\path\{filename}.weekly.rar") = True Then
    fso.CopyFile "C:\path\{filename}.weekly.rar", "C:\path\{filename}.monthly.rar", True
End If

有时，* .rar存档可以拆分为多个文件，因此我在文件夹

中

"C:\path\{filename}.weekly.part01.rar"
"C:\path\{filename}.weekly.part02.rar"
"C:\path\{filename}.weekly.part03.rar"
...

如何检查分割文件是否存在，然后将它们重命名为

之类的相同位置

"C:\path\{filename}.monthly.part01.rar"
"C:\path\{filename}.monthly.part02.rar"
"C:\path\{filename}.monthly.part03.rar"
...

Answer 1

我已使用以下代码解决了此问题

Sub CopyRenamed(folder, find_str, replace_with)
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim d : Set d = fso.GetFolder(folder)
    Dim f : Set f = d.Files
    Dim file
    For Each file In f
        If InStr(1, file.Name, find_str) > 0 Then
            fso.CopyFile file.Path, fso.BuildPath(folder, Replace(file.Name, find_str, replace_with)), True
        End If
    Next
    Set fso = Nothing   
End Sub

如何使用VBScript复制和重命名splitted * .rar存档？

1 个答案: