🚀 go-pugleaf

はじめまして佐藤　謹弥と申します。

H.Yanagihara wrote in message <6k3eva$eap$1@news1.sphere.ad.jp>...
>こんにちは、柳原といいます。
>

>現在VB5.0でアプリケーションを開発しています。
>SHELL関数で起動するEXCELのEXEのPATHを取得したいのですが、これをAPIで取得で
き
>ると聞きました。
>
FindExecutable APIを使用すれば出来ます。
またはShellExecute　APIを使用する。

>そこでこの関数の名称や使用方法を調べてみたのですが見つかりません。
>
そんな事有りません。

>どなたか知っている方がいらっしゃいましたら、是非教えていただきたいです。
>できれば、コーディングのサンプルもお願いします。

Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA"
(ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As
String) As Long

Dim Win32ResultCode     As Long                 'ＡＰＩ戻り
Dim ipResult                  As String * 255       '取得したディレクトリが
格納される。
Dim ipFile                    As String                'ここにファイル名を格
納。
Dim ipDir                    As String                'ここに検索用のカレン
トディレクトリを入れる。

ipFile = " C:\TEST.XLS"
ipDir ="C:\"
ipResult = FindExecutable(ipFile,ipDir,ipResult)

後はipResult を調べればＯＫ

From
大阪府寝屋川市長栄寺町12-14
佐藤　謹弥

本当に助かりました。

どうもありがとうございました。

－－－－－－－－－－－－－－－－－－－－－－－
柳原　大樹　( yanagihara@po.osk.holon.co.jp )
－－－－－－－－－－－－－－－－－－－－－－－