VBS脚本：CopyFile

bj_wellcome

于 2010-08-08 14:19:00 发布

阅读量1.8k

点赞数

CC 4.0 BY-SA版权

分类专栏： VB &amp; VBS 文章标签：脚本 file 2010

本文链接：https://blog.youkuaiyun.com/bj_wellcome/article/details/5796749

VB & VBS 专栏收录该内容

17 篇文章

订阅专栏

本文介绍了一个VBScript脚本，该脚本实现了在严格条件下复制文件的功能。它确保了源文件和目标文件夹的存在，并检查目标位置是否存在同名文件或文件夹。通过详细的错误处理机制，提高了脚本的健壮性和可靠性。

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

2010-08-08

个人认为自己编写的代码执行条件越严格越好，并且竟可能对所有可能的情况进行错误处理

Rem : =========== 将文件 file 复制到文件夹 folder 中 Rem : =========== file必须存在 Rem : =========== folder必须存在 Rem : =========== foler中不能存在与file同名的文件或文件夹 Sub CopyFile( file, folder ) If fso.fileexists(file)=False Then Err.Raise vbObjectError+128, "CopyFile", "File : " & file & " does not exist" Exit Sub End If If fso.folderexists(folder)=False Then Err.Raise vbObjectError+128, "CopyFile", "Folder : " & folder & " does not exist" Exit Sub End If Dim f f = folder If Right(f,1) <> "/" Then f = f & "/" End If f = f & GetFileName(file) If fso.fileexists(f) = True Or fso.folderexists(f) = True Then Err.Raise vbObjectError+128, "CopyFile", f & " already exists" Exit Sub End If fso.CopyFile file, folder, False End Sub