vbs脚本 : CopyFile

使用VBS脚本复制文件

最新推荐文章于 2023-05-14 13:07:53 发布

原创最新推荐文章于 2023-05-14 13:07:53 发布 · 715 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#脚本 #file

VB & VBS 专栏收录该内容

17 篇文章

订阅专栏

这段VBS脚本提供了一个名为CopyFile的子程序，用于将指定的文件复制到目标文件夹。脚本首先检查源文件是否存在，目标文件夹是否已创建，且目标位置不允许存在同名文件或文件夹。如果所有条件满足，脚本会尝试复制文件，并处理可能出现的错误。

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
	
	Dim errMsg
	On Error Resume Next
	fso.CopyFile file, folder, False
	If Err.Number <> 0 Then
		errMsg = Err.Description
		On Error Goto 0
		Err.Raise vbObjectError+128, "CopyFile", errMsg & vbNewLine & _
								"                file:" & vbTab & file & vbNewLine & _
								"                folder:" & vbTab & folder
		Exit Sub
	End If
End Sub