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

「ダイアログからフォルダパスを取得」(2013/05/08 (水) 23:33:16) の最新版変更点

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

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

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

 ' SelectFolderPathWithDialog
 ' フォルダ選択ダイアログを使用し、フォルダパスを選択する
 ' キャンセルを押された場合は、空文字を返却する
 ' 引数：なし
 ' 戻り値：String：ダイアログで取得したパス
 Public Function SelectFolderPathWithDialog() As String
     Dim resultStr As String
     With Application.FileDialog(msoFileDialogFolderPicker)
         'ダイアログのタイトル
         .Title = "フォルダを選択してください"
 
         If .Show = True Then
         ' OKが押されている場合
             resultStr = CStr(.SelectedItems(1))
         End If
     End With
     
     ' 有効なパスが選択された場合
     If Dir(resultStr, vbDirectory) <> "" And Len(resultStr) > 0 Then
         resultStr = resultStr & "\"
     Else
         resultStr = ""
     End If
     
     SelectFolderPathWithDialog = resultStr
 End Function


[[トップ]]

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

- ソース
 ' SelectFolderPathWithDialog
 ' フォルダ選択ダイアログを使用し、フォルダパスを選択する
 ' キャンセルを押された場合は、空文字を返却する
 ' 引数：なし
 ' 戻り値：String：ダイアログで取得したパス
 Public Function SelectFolderPathWithDialog() As String
     Dim resultStr As String
     With Application.FileDialog(msoFileDialogFolderPicker)
         'ダイアログのタイトル
         .Title = "フォルダを選択してください"
 
         If .Show = True Then
         ' OKが押されている場合
             resultStr = CStr(.SelectedItems(1))
         End If
     End With
     
     ' 有効なパスが選択された場合
     If Dir(resultStr, vbDirectory) <> "" And Len(resultStr) > 0 Then
         resultStr = resultStr & "\"
     Else
         resultStr = ""
     End If
     
     SelectFolderPathWithDialog = resultStr
 End Function


[[トップ]]