WSH - 外部ファイルのインクルード

外部ファイルをインクルードするWSHスクリプト。
関数を共有するときなどに便利。

2月18日の記事の「WSH - スクリプトのフォルダを取得」を利用して、
スクリプトと同じフォルダのファイルをインクルードする。

'インクルードファイル名
Const IncludeFile = "wsh.inc.vbs"

'スクリプトのフルパス
strFullPath = WScript.ScriptFullName

'FileSystemObjectで親フォルダを取得
strDir = CreateObject("Scripting.FileSystemObject").GetFile(strFullPath).ParentFolder

'ファイル内容をこの位置に読み込み
Const ForReading = 1
Execute CreateObject("Scripting.FileSystemObject").OpenTextFile(strDir & "\" & IncludeFile, ForReading).ReadAll()

関連ページ：
WSH - スクリプトのフォルダを取得 (2009-02-18)