0

サーバーに 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"
...
4

1 に答える 1

0

私は次のコードでこの問題を解決しました

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-15T15:52:14.817 に答える