ファイル.txtをプログラムから起動させる方法。
■ このスレッドは過去ログ倉庫に格納されています
0001(*
NGNG以下のAPI宣言関数では、エクセルしか起動できません。?
ノートパッド等、すべてのファイルについて、
ファイル名を指定すると、関連するexeを起動して
そのファイルを起動させる方法とはどうすればいいんでしょうか?
教えてください、お願いします。
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long@` ByVal lpOperation As String@` ByVal lpFile As String@` ByVal lpParameters As String@` ByVal lpDirectory As String@` ByVal nShowCmd As Long) As Long
0002名無しさん@お腹いっぱい。
NGNG0003名無しさん@お腹いっぱい。
NGNGつーか既に回答自分で出してるじゃん > ShellExecute()
00041にお似合いな方法
NGNG0005(*
NGNGおおっ!、できましたありがとう。m(_ _)m
私には上記の方法がお似合いのですが(開けばいいや)、
APIのオープンの方法でどこが悪いのか、よろしければ教えてください。
Dim OPtxt As Long
Dim strFileName As String
strFileName = "hoge.txt"
OPtxt = ShellExecute(Me.hwnd@` _
"open"@` _
strFileName@` _
vbNullString@` _
App.Path@` _
SW_SHOWNORMAL)
0006名前
NGNG0007(*
NGNG0008{
NGNG■ このスレッドは過去ログ倉庫に格納されています