2010-08-08code
我的认为本身编写的代码执行条件越严格越好，而且竟可能对全部可能的状况进行错误处理it
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 Subclass