We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Function GetDirectory() 'This script allows the user to select a directory, 'making it possible for results to be exported to that 'directory. On Error GoTo ErrorHandler Dim strFolderPath As String Dim fd As Office.FileDialog 'Create a FileDialog object as a Folder Picker dialog box. Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd .Title = "Identify the database(s) containing your source data" .ButtonName = "Select" .InitialView = msoFileDialogViewDetails .InitialFileName = "\\ShareServer\" If .Show = -1 Then strFolderPath = CStr(fd.SelectedItems.Item(1)) & "\" Else Debug.Print "User pressed Cancel" strFolderPath = "" End If End With GetDirectory = Trim(strFolderPath) ErrorHandlerExit: Exit Function ErrorHandler: MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description Resume ErrorHandlerExit End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Cant delete records in query||8||47|
|Combo box with two columns question||7||36|
|Access 2016 Query to text file csv makes my computer do the blue screen of death||3||9|
|Access 2003 query, remove dupes||17||18|
Join the community of 500,000 technology professionals and ask your questions.