Dim Dlg As New FolderBrowserDialogDlg.SelectedPath = "d:\foxtable"Dlg.ShowDialog()MsgBox(Dlg.SelectedPath)