vbs脚本:MoveFolder

最新推荐文章于 2023-04-10 10:51:22 发布

原创最新推荐文章于 2023-04-10 10:51:22 发布 · 184 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一个VBScript(VBS)脚本，用于将一个文件夹移动到另一个指定的文件夹内。脚本确保源文件夹存在，并检查目标文件夹的存在及权限，避免覆盖已存在的同名文件夹。

vbs脚本:MoveFolder
2010年08月08日
　　Rem : =========== 将文件夹 folder1 移动到文件夹 folder2 中 Rem : =========== folder1必须存在 Rem : =========== folder2必须存在且属性不能为只读 Rem : =========== foler2中不能存在与folder1同名的文件或文件夹 Sub MoveFolder( folder1, folder2 ) Dim f1, f2 f1 = folder1 f2 = folder2 IfRight(folder1,1) = "\" Then f1 = Left(folder1,Len(folder1) -1 )IfRight(folder2,1) = "\" Then f2 = Left(folder2,Len(folder2) -1 )If fso.folderexists(f1)=False ThenErr.Raise vbObjectError+128, "MoveFolder", "Folder : " & f1 & " does not exist" If fso.folderexists(f2)=False ThenErr.Raise vbObjectError+128, "MoveFolder", "Folder : " & f2 & " does not exist" f = f2 & "\" & fso.GetBaseName(f1)If fso.fileexists(f) = True Or fso.folderexists(f) = True ThenErr.Raise vbObjectError+128, "MoveFolder", f & " already exists" ExitSubEndIfDim errMsg OnError Resume NextRem ====== code begin ' fso.MoveFolder f1, f ' 不明白为什么会出错 fso.CopyFolder f1, f2 & "\", False fso.DeleteFolder f1, True Rem ====== code endIfErr.Number 0 Then errMsg = Err.Description OnError Goto 0 Err.Raise vbObjectError+128, "MoveFolder", errMsg & vbNewLine & _ " folder1:" & vbTab & folder1 & vbNewLine & _ " folder2:" & vbTab & folder2 ExitSubEndIfEndSub