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

「ダイアログからファイルパスを取得」(2013/05/09 (木) 02:03:47) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

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

- ソース
 ' 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
 

[[トップ]]

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

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

[[トップ]]