【VBA】ブックを複製する｜fso.CopyFile

'-----------------------------------------
' Copy file with overwrite option and error handling
' ファイルコピー（上書き許可オプション付き・エラーハンドリング）
'-----------------------------------------
Public Function CopyBook( _
	ByVal srcPath As String, _
	ByVal dstPath As String, _
	Optional ByVal overwrite As Boolean = False) As Boolean

	On Error GoTo ErrHandler

	Dim fso As Object
	Set fso = CreateObject("Scripting.FileSystemObject")

	If Not fso.FileExists(srcPath) Then Exit Function

	If fso.FileExists(dstPath) Then
		If Not overwrite Then Exit Function
		fso.DeleteFile dstPath, True
	End If

	fso.CopyFile srcPath, dstPath, True
	CopyBook = True
	Exit Function

ErrHandler:
	CopyBook = False
End Function