ファイルを実行(開く)

解決

Ck 2005-10-20 14:54:56 No: 126569 IP: [192.*.*.*]

こんにちは
VB全くの初心者です。
フォーム内にコマンドボタン1,2,3つけました。

1を押すと
C:\Documents and Settings\Admin\デスクトップ\〜\ABC.xls
2を押すと
C:\Documents and Settings\Admin\デスクトップ\〜\ABC.txt
3を押すと
"D:\〜\USA.exe"
これらのファイルが開くと言う事をしたいんです。
お願いします。

編集削除

ガッ 2005-10-20 15:03:58 No: 126570 IP: [192.*.*.*]

…VBのバージョンは？

VB6なら
Shell environ$("comspec") & " /c start " & """C:\Documents and Settings\Admin\デスクトップ\〜\ABC.xls"""
で動くかも。

編集削除

Ck 2005-10-20 15:24:30 No: 126571 IP: [192.*.*.*]

バージョンは6.0でした

ボタン押したらコマンドプロンプトでてきてこのVBがあるアドレス記してるのですが？？

編集削除

ガッ 2005-10-20 15:58:51 No: 126572 IP: [192.*.*.*]

うーん…コマンド拡張機能が有効にならない環境…？
というかウチでもコマンドプロントが出てきて、黒画面で止まりました(orz
しかたないので、ShellExecuteExを使いましょう。

例)
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

Public Sub OpenFile(ByVal FilePath As String)
    Const SW_NORMAL = 1
    ShellExecute 0, "open", FilePath, vbNullString, vbNullString, SW_NORMAL
End Sub
で
OpenFile "some.txt"

編集削除

Ck 2005-10-20 16:04:07 No: 126573 IP: [192.*.*.*]

こんにちは
ShellExecute←名前が適切でないって言われるんですが何でしょうか??

OpenFile "some.txt"←ここにアドレスC:〜って入れればいいんですよね？

編集削除

ガッ 2005-10-20 16:22:29 No: 126574 IP: [192.*.*.*]

> ShellExecute←名前が適切でないって言われるんですが何でしょうか??
貴方の作っているプロジェクトで、
同一のスコープに"ShellExecute"がすでに存在しているのかもしれません。
新しいプロジェクトを立ち上げて、動作テストしてください。

> OpenFile "some.txt"←ここにアドレスC:〜って入れればいいんですよね？
はい。

編集削除

Ck 2005-10-20 16:29:49 No: 126575 IP: [192.*.*.*]

>同一のスコープに"ShellExecute"がすでに存在しているのかもしれません
すでに同じものがありました。すいません

ファイルのアドレスで
\\から始まるものってどこにあるのでしょうか??

編集削除

ガッ 2005-10-20 16:41:27 No: 126576 IP: [192.*.*.*]

> \\から始まるものってどこにあるのでしょうか??
…ローカルコンピュータかなぁ。
すみません、あまり良く分からないです。(TT

編集削除

Ck 2005-10-20 16:47:40 No: 126577 IP: [192.*.*.*]

分かりました。
取りあえずうまく実行できたので感謝です。
ありがとうございました。

編集削除

Ck 2005-10-20 16:48:18 No: 126578 IP: [192.*.*.*]

解決チェックするの忘れました

編集削除