自动交换两个文件的文件名 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