vbs 脚本:CopyFile

最新推荐文章于 2023-03-15 11:31:43 发布

原创最新推荐文章于 2023-03-15 11:31:43 发布 · 264 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一个使用VBS脚本实现的文件复制功能。该脚本确保源文件存在，并验证目标文件夹的有效性，同时避免覆盖已存在的文件。适用于自动化文件管理任务。

vbs 脚本:CopyFile
2010年08月08日
　　Rem : =========== 将文件 file 复制到文件夹 folder 中 Rem : =========== file必须存在 Rem : =========== folder必须存在且属性不能为只读 Rem : =========== foler中不能存在与file同名的文件或文件夹 Sub CopyFile( 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, "CopyFile", "File : " & f1 & " does not exist" ExitSubEndIfIf fso.folderexists(f2)=False ThenErr.Raise vbObjectError+128, "CopyFile", "Folder : " & f2 & " does not exist" ExitSubEndIfDim f f = f2 & "\" & fso.GetFileName(f1)If fso.fileexists(f) = True Or fso.folderexists(f) = True ThenErr.Raise vbObjectError+128, "CopyFile", f & " already exists" ExitSubEndIfDim errMsg OnError Resume Next fso.CopyFile f1, f2 & "\", FalseIfErr.Number 0 Then errMsg = Err.Description OnError Goto 0 Err.Raise vbObjectError+128, "CopyFile", errMsg & vbNewLine & _ " file:" & vbTab & file & vbNewLine & _ " folder:" & vbTab & folderExitSubEndIfEndSub