如何使用VBScript複製並重命名splitted * .rar檔案？

我有我的服務器上的VB腳本（* .VBS），通過內置FileSystemObject的，如果這樣的文件存在...如何使用VBScript複製並重命名splitted * .rar檔案？

"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" 
...

來源

2013-01-15 Max

我已經解決了這個問題，用下面的代碼

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

將其重命名

來源

2013-01-15 15:52:14 Max

如何使用VBScript複製並重命名splitted * .rar檔案？

回答

相關問題