VBSでエクセルのバージョン判別してデスクトップへファイルをコピー

'エクセルのバージョンに合わせてデスクトップへファイルコピー
Option Explicit

Dim ExcelApp
Set ExcelApp = CreateObject("Excel.Application")

if ExcelApp is Nothing then
	MsgBox "Excelがインストールされていません。",vbCritical
	WScript.Quit
end if

'デスクトップのpath
Dim DesktopPath
Dim objWshShell
Set objWshShell = CreateObject("WScript.Shell")
DesktopPath = objWshShell.SpecialFolders("Desktop")
Set objWshShell = Nothing

Dim objFileSys
Set objFileSys = CreateObject("Scripting.FileSystemObject")

Dim ExcelVer
ExcelVer = CLng(Left(ExcelApp.Version & "",2 ))

if ExcelVer <= 11 then
	'2003以下
	objFileSys.CopyFile "コピーするファイル", DesktopPath + "\コピーするファイル"
else
	'2007以降
	objFileSys.CopyFile "コピーするファイル２", DesktopPath + "\コピーするファイル２"
end if
Set objFileSys = Nothing


' Excel をアプリケーションとして終了
ExcelApp.Quit
' Excel を VBScript から開放
Set ExcelApp = Nothing
' オブジェクト変数を通常変数として初期化
ExcelApp = Empty

ネタ元

• http://vbsguide.seesaa.net/article/144671656.html