自动交换两个文件的文件名 VSB脚本技巧 电脑技巧

交换两个文件的文件名，这个东西有什么好处呢，一般情况下，我们不需要交换两个文件的文件名，但是在特殊情况下，比如说我们做文件的替换的时候，文件名肯定是相同的，这时候我们要把文件名改成相同的，就需要手动去改。

自动交换两个文件的文件名 VSB脚本技巧 电脑技巧

Set objShell = CreateObject("WScript.Shell")

Set objFSO = CreateObject("Scripting.FileSystemObject")

If WScript.Arguments.Count <> 2 Then

    WScript.Quit

End If

strFile1 = WScript.Arguments(0)

strFile2 = WScript.Arguments(1)

If Not objFSO.FileExists(strFile1) Or Not objFSO.FileExists(strFile2) Then

    WScript.Quit

End If

tempName = objFSO.BuildPath(objFSO.GetParentFolderName(strFile1), "_temp_" & objFSO.GetExtensionName(strFile1))

objFSO.MoveFile strFile1, tempName

objFSO.MoveFile strFile2, strFile1

objFSO.MoveFile tempName, strFile2