内容

他のvbsの関数を呼び出す。

例えば「csvファイルを読み込む関数を作った」汎用的に使える処理を作成したら、他のプログラムでも使いたくなる。その処理をコピーすれば話は済むが、それでは修正・機能追加などのメンテナンスが大変になる。

'他のスクリプトの関数を実行する
'関数を呼び出す側「a.vbs」

Option Explicit

Include("b.vbs")	'b.vbsの読み込み
MsgHello()		'b.vbsの関数を実行

Function Include(strFile)
	'strFile：読み込むvbsファイルパス

	Dim objFso, objWsh, strPath
	Set objFso = Wscript.CreateObject("Scripting.FileSystemObject")
	
	'外部ファイルの読み込み
	Set objWsh = objFso.OpenTextFile(strFile)
	ExecuteGlobal objWsh.ReadAll()
	objWsh.Close

	Set objWsh = Nothing
	Set objFso = Nothing

End Function

'他のスクリプトの関数を実行する

'関数を呼び出す側「a.vbs」

Option Explicit

Include("b.vbs") 'b.vbsの読み込み

MsgHello() 'b.vbsの関数を実行

Function Include(strFile)

'strFile：読み込むvbsファイルパス

Dim objFso, objWsh, strPath

Set objFso = Wscript.CreateObject("Scripting.FileSystemObject")

'外部ファイルの読み込み

Set objWsh = objFso.OpenTextFile(strFile)

ExecuteGlobal objWsh.ReadAll()

objWsh.Close

Set objWsh = Nothing

Set objFso = Nothing

End Function

'他のスクリプトの関数を実行する
'関数を呼び出される側「b.vbs」

Option Explicit

Function MsgHello()
	Msgbox "Hello!!"
End Function

'他のスクリプトの関数を実行する

'関数を呼び出される側「b.vbs」

Option Explicit

Function MsgHello()

Msgbox "Hello!!"

End Function

【vbs】＜サンプル＞別vbsの関数を実行

内容