vbs脚本:MoveFile

最新推荐文章于 2024-11-17 13:05:27 发布

iteye_7817

最新推荐文章于 2024-11-17 13:05:27 发布

阅读量357

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/iteye_7817/article/details/82268566

本文介绍如何使用VBS脚本将指定文件移动到指定文件夹，包括验证文件和文件夹的存在性，确保目标文件夹中不存在同名文件或文件夹，并详细展示了错误处理流程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

vbs脚本:MoveFile
2010年08月08日
　　Rem : =========== 将文件 file 移动到文件夹 folder 中，相当于剪切操作 Rem : =========== file必须存在 Rem : =========== folder必须存在且属性不能为只读 Rem : =========== foler中不能存在与file同名的文件或文件夹 Sub MoveFile( file, folder ) Dim f1, f2 f1 = file f2 = folderIfRight(f1,1) = "\" Then f1 = Left(f1,Len(f1) -1 )IfRight(f2,1) = "\" Then f2 = Left(f2,Len(f2) -1 )If fso.fileexists(f1)=False ThenErr.Raise vbObjectError+128, "MoveFile", "File : " & f1 & " does not exist" EndIfIf fso.folderexists(f2)=False ThenErr.Raise vbObjectError+128, "MoveFile", "Folder : " & f2 & " does not exist" EndIfDim f f = f2 & "\" & fso.GetFileName(f1)If fso.fileexists(f) = True Or fso.folderexists(f) = True ThenErr.Raise vbObjectError+128, "MoveFile", f & " already exists" EndIfDim errMsg OnError Resume Next fso.MoveFile f1, f2 & "\"IfErr.Number 0 Then errMsg = Err.Description OnError Goto 0 Err.Raise vbObjectError+128, "MoveFile", errMsg & vbNewLine & _ " file:" & vbTab & file & vbNewLine & _ " folder:" & vbTab & folderExitSubEndIfEndSub