OpenFile_FS()

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

構文

OpenFile_FS(strInitialDir As String, strDialogTitle As String)  

引数

指定項目 内容
strInitialDir コモンダイアログが表示するデフォルトのパス名を指定します。
例：　C:\DATA
strDialogTitle コモンダイアログのタイトルを指定します。
例：　ファイルを選択してください！


戻り値

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

使用例

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

  strFullPath = OpenFile_FS("C:\", "ファイルを選択してください！")
  
  strFile = Dir(strFullPath)

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

End Sub
 　

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