フォルダのパスを取得する

  フォルダのパスを取得する方法です。
  
  

Sub GetFolderPath()

    Dim DirectoryName                               As String
    
    DirectoryName = FolderPath
    
    If DirectoryName = "" Then
        'キャンセルボタンが押された
        Exit Sub
    End If

End Sub

Function FolderPath() As String

    Const xmsoFileDialogFolderPicker = 4
    
    With Application.FileDialog(xmsoFileDialogFolderPicker)
            
        .Title = "フォルダを選択してください"
        If .Show = -1 Then  'アクションボタンがクリックされた
            FolderPath = .SelectedItems(1)
        Else                'キャンセルボタンがクリックされた
            FolderPath = ""
        End If
    End With

End Function

  StartKitsParts.xls をダウンロードして、ご使用ください。