VBS脚本:CopyFile

VBS脚本:CopyFile
2010年08月08日
　　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