「ダイアログからファイルパスを取得」の編集履歴（バックアップ）一覧に戻る

ダイアログからファイルパスを取得 - (2013/05/09 (木) 00:30:11) のソース

***ダイアログからフォルダパスを取得

- ソース
 ' SelectFilePathWithDialog
 ' ファイル選択ダイアログを使用し、ファイルパスを選択する
 ' キャンセルを押された場合は、空文字を返却する
 ' 引数：なし
 ' 戻り値：String：ダイアログで取得したパス
 Public Function SelectFilePathWithDialog() As String
 
     Dim FileName As String
     Dim resultFileName As String
 
     'ファイルを開くダイアログを開きます
     FileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
                                                 Title:="ファイルを選択してください", _
                                                 MultiSelect:=False)
 
     'ファイルが選択されているときはフォルダパスを返却
     If FileName <> "False" Then
         resultFileName = CStr(FileName)
     Else
         resultFileName = ""
     End If
     SelectFilePathWithDialog = resultFileName
 End Function
 

[[トップ]]