VBS脚本：CopyFile

2010-08-08

 

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

 

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