VBS脚本：CopyFile

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