No.1ベストアンサー
- 回答日時:
環境により実行ファイルが違う場所にあるかもしれないのですが、以下私の環境(Win2K,VB6.0SP6)での記述です。
Private Sub Command1_Click()
Call Shell("mshta.exe C:\*.hta", vbNormalFocus)
End Sub
と記載すれば実行できました。
(もちろんですが「*.hta」というファイルを「C:\」に作ってある状態です)
Shell関数は例えば
Dim Ret As Long
などで宣言した変数を使用して
Ret = Shell(***,vbNormalFocus)
(***はファイル名など)などでも使えます。
Shell関数についてはヘルプなどで見るとわかるかと思いますよ。
ちなみに、空白があるフォルダ名(My Documentsなど)を使用する場合などはこの方法だとエラー(実行されない)になる場合があります。
その際は
Dim MyFile As String
MyFile = Chr(34) & "C:\Documents and Settings\Administrator\My Documents\***.hta" & Chr(34)
Call Shell("mshta.exe " & MyFile,vbNormalFocus)
と前後にChr(34)を使用すると使えるようになります。
("mshta.exe "のexeのあとに必ず空白を一つ入れてください)
他にもAPIを使用した方法などありますが、一つの方法として書いておきます。
Shell関数をいろいろな書き方で試してもなかなかうまくいかずに悩んでいたのですが、おかげでスッキリ解決できました。APIの使い方も興味あるのでもっと勉強してみようと思います。早々に回答いただきありがとうございました。
No.3
- 回答日時:
おっと、リロードしたら書き込みありましたね^^;
参考URLの張り忘れしたので、追記です。
http://www.vbvbvb.com/jp/gtips/0951/gShellExecut …
参考URL:http://www.vbvbvb.com/jp/gtips/0951/gShellExecut …
No.2
- 回答日時:
Private 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
Const DEF_HTA_FILE As String = "c:\Test.hta"
Sub Test1()
'関連づいたアプリケーションで立ち上げる
Call ShellExecute(0, "open", DEF_HTA_FILE, vbNullString, Environ("windir"), 1)
End Sub
Sub Test2()
'アプリケーションを指定して立ち上げる
Call Shell("mshta.exe " & DEF_HTA_FILE)
End Sub
関連付けアプリで立ち上げる方法もあるのですね。
とても勉強になります。
早々にご回答いただきありがとうございました。
教えていただいたリンクも参考にさせていただきます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Visual Basic(VBA) VBでExcelの表形式の様なデザインを作りDBと連携させる。 4 2023/02/28 11:39
- Visual Basic(VBA) VBプロジェクトでのフォルダ構成について 1 2023/07/22 03:49
- グループウェア 一太郎がイントラで開けません。対処方法を知りたいです。 3 2023/04/04 13:30
- C言語・C++・C# visual studioでフォームデザインを作成する時のVB.netとC#の違い 2 2023/06/22 03:04
- C言語・C++・C# C#の2つの実行ファイルとアプリアイコンの変更について 1 2023/01/07 16:57
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- アプリ Edgeを操作するアプリについて 4 2023/05/11 22:48
- その他(プログラミング・Web制作) IT初心者です 仕事で、vb.netで作成されたdllをvbaで呼び出すプログラムを作成しろと言われ 1 2023/03/27 08:22
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
HTAのウィンドウを閉じるには・・。
ホームページ作成・プログラミング
-
HTAで、こんなボタンが作りたい。
その他(プログラミング・Web制作)
-
【HTML、VBScript】HTAアプリケーションにて別ウインドウで開きたい
Visual Basic(VBA)
-
-
4
外部ファイルに関数を置いて、呼び出すには?(VBScriptなんですが)
Visual Basic(VBA)
-
5
VBScriptでHTMLのセレクトボックスで表示されている値に指定したい
その他(プログラミング・Web制作)
-
6
VBSの「MsgBox」について
Visual Basic(VBA)
-
7
WSH レジストリのキーが存在するかチェックしたい
Windows Me・NT・2000
-
8
htaでVBSのソースを書いたらエラーを返します
その他(プログラミング・Web制作)
-
9
VBAで任意のウインドウのサイズを変更する方法
Visual Basic(VBA)
-
10
VBSから別のVBS起動するとき変数を渡したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
OLE又はDDEを使うVISUAL BESIC...
-
Access クエリ実行が急に非常に...
-
VBS形式ファイル:ダブルクリッ...
-
コンパイル ./aと./a.out の違い
-
VC++から引数付きexeファイルの...
-
LINK : fatal error LNK1104に...
-
xismoについてです!開こうとす...
-
コマンドプロンプトで外のexeや...
-
Winでコマンドプロンプトを出さ...
-
VC++での外部プログラムの実行
-
64bit環境で32bitのodbc参照
-
jarファイルとjava.exeの関連付...
-
eclipseで作ったプログラムを他...
-
VBAでMP3を鳴らしたい
-
VB6.0で作ったプロジェクトが起...
-
C言語で計算したファイルをsma4...
-
VBSでEXCELのXLSTARTにあるマク...
-
コマンドプロンプトにてスター...
-
VBAでEXEファイルを動かす方法...
-
htaファイルが実行されません
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access クエリ実行が急に非常に...
-
OLE又はDDEを使うVISUAL BESIC...
-
xismoについてです!開こうとす...
-
VC++から引数付きexeファイルの...
-
JavaScriptでコマンドプ...
-
LINK : fatal error LNK1104に...
-
VBAでEXEファイルを動かす方法...
-
c/c++ ビルドしたにもかかわら...
-
WScript.Echo と msgbox
-
64bit環境で32bitのodbc参照
-
VBAでMP3を鳴らしたい
-
コマンドプロンプトで外のexeや...
-
batからexeを実行し戻り値を受...
-
ファイルアイコンの左下に緑の□...
-
コンパイル ./aと./a.out の違い
-
htaファイルが実行されません
-
jarファイルとjava.exeの関連付...
-
JAVA .jarファイルに再圧縮する...
-
VB6.0で作ったプロジェクトが起...
-
以下のように複数のファイルを...
おすすめ情報