OpenFileEXT_FS()

Windowsのコモンダイアログを表示させて目的のファイルのパス名を取得します。

構文

OpenFileEXT_FS(strInitialDir As String, _
               strFilterTitle As String, _
               strFilter As String, _
               strDialogTitle As String)

引数

指定項目 内容
strInitialDir コモンダイアログが表示するデフォルトのパス名を指定します。
例：　C:\DATA
strFilterTitle コモンダイアログのファイルの種類の欄に表示するタイトルを指定します。
例： MDB(*.mdb)
strFilter コモンダイアログに表示するファイルの拡張子をワイルドカード（*.*)形式で指定します。
例： *.mdb,  *.txt,  *.doc
strDialogTitle コモンダイアログのタイトルを指定します。
例：　ファイルを選択してください！


戻り値

String コモンダイアログから選択したファイルのフルパス名が返ります。
例：　C:\DATA\MyData.ｔｘｔ

使用例

Sub OpenFileEXT_EX()
  Dim strFullPath As String
  Dim strFile As String

  strFullPath = OpenFileEXT_FS("D:\User6\", _
                               "MDB(*.mdb)", _
                               "*.mdb", _
                               "MDBファイルを選択してください！")
  
  strFile = Dir(strFullPath)

  MsgBox "あなたが選択したファイルのパス名は " _
         & Left(strFullPath, Len(strFullPath) - Len(strFile)) _
         & vbCrLf & "ファイル名は　" & strFile & "　です."

End Sub
 　

注）
使用例をテストするには、ライブラリーデータベース（MyLib.mda）を組み込む必要があります。