ファイルを実行(開く) (ID:126572)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 うーん…コマンド拡張機能が有効にならない環境…？ というかウチでもコマンドプロントが出てきて、黒画面で止まりました(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"