[00685] 1047 byte
投稿日時: 2002年10月1日(火) 0時11分19秒
ホスト名: PPPa617.osaka-ip.dti.ne.jp(210.159.129.117)

Re: VBScriptから

投稿者: 杉浦 まさき
e-mail: （入力されていません）
   URL: （入力されていません）

SHIN さん、こんばんは。
杉浦　まさき　です。

> VBスクリプトからDLLを呼び出しその機能を使えるという
> 「DynaCall.DLL」というものがあります。
> これを利用して田楽DLLの「GETDIRNAMEEX」を呼び出してみました
> 見事に「フォルダの指定」コモンダイアログを表示しまた。
> が、戻り値が「18312136」というわけのわからない数値が
> 帰ってきました。ということで、「DynaCall.DLL」は結局
> 使えそうにもありません。そこで、VBスクリプトから
> 田楽DLLを呼び出せるDLLをご存知の方いらっしゃいませんか？

その DynaCall.DLL を探していたら DynaWrap.DLL なるものを見つけました。
＃http://www.borncity.com/WSHBazaar/WSHBazaar.htm から入手可能です。

その DynaWrap.DLL (+ DynaCall.DLL ??) を使うと、以下のようなコードで
DengakuDLL.DLL を使えそうな感じです。＜自分では確認してませんが(^^;

Dim UserWrap
Set UserWrap = CreateObject("DynamicWrapper")
'   GetProcAddress for GETDIRNAME()
UserWrap.Register "DengakuDLL.DLL", "GETDIRNAME", "i=lss", "f=c", "r=s"
'   んでこのあと UserWrap.GETDIRNAME で GETDIRNAME() を呼び出せる
'    らしいんですが…VBS でサンプルを書けません(^^;。

<651> VBScriptから (SHIN) 07/11 12:35
└<652> Re: VBScriptから (杉浦 まさき) 07/11 20:48
　├<653> Re: VBScriptから (SHIN) 07/12 09:01
　└<684> Re: VBScriptから (SHIN) 09/30 20:10
　　└>685< Re: VBScriptから (杉浦 まさき) 10/01 00:11
　　　└<686> Re: VBScriptから (SHIN) 10/01 10:40
　　　　└<687> Re: VBScriptから (杉浦 まさき) 10/01 23:15
　　　　　└<688> Re: VBScriptから (SHIN) 10/02 10:27