VBAでDLLが見つからないエラー

ＣＡＤのＶＢＡ（６．０）ですが、ＤＬＬが見つからないエラーが出ます
' こっちはエラーが出ない
Public Declare Function SearchVBApath Lib _
"C:\Program Files\AppliTool\VB\DDDD.dll" (ByVal env As String, ByVal s As String) As Integer
'こっちだとエラーが出る
Public Declare Function SearchVBApath Lib "DDDD.dll" (ByVal env As String, ByVal s As String) 　　　As Integer
ＶＢＡプロジェクトファイルとＤＬＬは同じフォルダにおいてあります
上記のようにフルパスだとエラーが出ないのですがＤＬＬ名だけだとこの関数のところでエラーがでます
このＤＬＬ関数宣言行の前の方には他のＤＬＬ関数も同じようにパス省略で記述しているのですがそちらにはエラーが出ません
どなたかヒント下さい、よろしくお願いします。

No.2 回答者： temtecomai2 回答日時： 2011/12/06 19:57

AutoCAD でしょうか、それとも VBA が組み込まれた別の CAD 製品でしょうかね。

そっち方面には詳しくないのですが、例えば Excel VBA の場合もデーター ファイルと DLL を同じ場所に置いてファイル名だけ指定しても NG です。
Excel VBA で言う場合のカレント フォルダーはオプションで設定する "既定のファイルの場所" (Excel 2007 の場合) です。
MsgBox CurDir
でカレント フォルダーがどこなのか確認できます。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr; …

この回答へのお礼

temtemomai さん
piyo2000 さん
回答ありがとうございました、
申し訳ありません、やはりこれだと！いう解決ヒントにはなりませんでした
質問に書きましたが、宣言部には同じＤＬＬ内の他の関数も羅列しているのですが
この関数だけがエラーを出すのです
最初はフルパス書いていたのですがソースとＤＬＬを同じ所に置けば
見つけるのを確認してパスを消していったらこんなことになってしまいました。

お礼日時：2011/12/07 10:25

No.1 回答者： piyo2000 回答日時： 2011/12/06 00:53

>ＶＢＡプロジェクトファイルとＤＬＬは同じフォルダにおいてあります

デバッガ（IDE上）での話ですよね？
この場合、カレントはVB6.exeのインストールパスとなるので、見つからないのだと思います。（プロジェクトファイルは関係なかったはず）

試しに("DDDD.dll"で)コンパイルしてexeにし、exeとDLLを同じパスに置いて実行してみてください。動くと思います。