関連付けられたアプリケーションでファイルを開く方法

◆概要

このページは、Visual Basic 6.0のVisual Basicで、関連付けられたアプリケーションでファイルを開く方法について記載しています。


API関数の ShellExecute でデータファイルを指定すると、拡張子に関連づけられたアプリが自動起動します。

◆Sample code

最初のFunctionはShellExecute()APIを使うための定義です。標準モジュールに記述する場合はPrivateをPublicにしてください。 

Option Explicit

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 SW_SHOWNORMAL = 1

Private Sub Command1_Click()
    
    Dim lngReturnCode As Long
    Dim strFileName As String

    'ファイル名
    strFileName = "D:work\test.csv"

    '関連付けられたアプリケーションで開く
    lngReturnCode = ShellExecute(Me.hwnd, _
                                "open", _
                                strFileName, _
                                vbNullString, _
                                App.Path, _
                                SW_SHOWNORMAL)

End Sub
　　
▼ページトップへ