Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

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