http://winofsql.jp/wsf/createMdb.wsf

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
<JOB>
<COMMENT>
************************************************************
 WSH 実行スケルトン
************************************************************
</COMMENT>

<COMMENT>
************************************************************
 外部スクリプト定義
************************************************************
</COMMENT>
<SCRIPT
	language="VBScript"
	src="http://lightbox.in.coocan.jp/laylaClass.vbs">
</SCRIPT>

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" )
Call laylaLoadFunction( "baseFunction.vbs" )
Call laylaLoadFunction( "toolFunction.vbs" )

if CreateMdb(MyDocDir & "\新規.mdb") then
	MsgOk(MyDocDir & "\新規.mdb を作成しました")
	OpenDir(MyDocDir)
else
	MsgOk(ErrorMessage)
end if


</SCRIPT>
</JOB>