User selects path to save HTML files : FileDialog « File Path « VBA / Excel / Access / Word

User selects path to save HTML files

Private Sub cmdChangePath_Click()
    Dim fd As FileDialog
    Dim I As Integer
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    With fd
        .AllowMultiSelect = False 'Allow only one selection
        .Title = "Select Folder"
        .InitialFileName = ""
        If .Show = -1 Then
            MsgBox .SelectedItems(1)
        End If
    End With
    Set fd = Nothing
End Sub


Related examples in the same category

1.The FileDialog Object
2.Set the AllowMultiSelect property of the dialog box to allow multiple selections in the dialog box
3.Open File Open Dialog and get the selection (Dialog Types Used with the FileDialog Object)
4.Use the SelectedItems property of the FileDialog object to return the FileDialogSelectedItems collection.
5.You can use the Add method of the FileDialogFilters collection object to create your own list of filter
6.Get selected paths
7.FileDialog with JPG file filter
9.Displays a dialog box that allows the user to select a directory. The selected directory name (or "Canceled") is then displayed by using the MsgBox function.