Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Option Compare Database Sub b() Dim fDialog As FileDialog Dim varFile As Variant Dim FilePath As String Dim FileName As String Dim fs As Object Dim SavePath As String Dim OpenFile As Variant Set fs = Interaction.CreateObject("Scripting.FilesystemObject") 'Declare SavePath for Documents SavePath = "\\Path\to\share\Directory\" 'Set up the File Dialog Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog 'Do not Allow user to select multiple files .AllowMultiSelect = False 'Set the title of the Dialog box .Title = "Please select the file you want to move" 'Clear our the current filters and add our own .Filters.Clear .Filters.Add "Adobe PDF", "*.PDF" .Filters.Add "All Files", "*.*" 'Show the Dialog box. If the .Show method returns True, the 'user picked a file. If the .Show method returns 'False, the user clicked cancel. If .Show = True Then 'Display what file the user picked For Each varFile In .SelectedItems Me.DocumentLocation.Value = SavePath 'Copy the File to the Share fs.Copyfile varFile, SavePath MsgBox ("The file you selected is - " & varFile) Set fs = Nothing Next 'The User Pressed the Cancel button Else MsgBox ("You clicked cancel!") End If End With End Sub
|why my code login on a web site with access vba don't work on microsoft access 2016||26||43|
|Obtaining SubForm Information from Main From||2||28|
|Word 2016 - Comments on one page contracted||2||25|
|Recording mileage on a form||2||11|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!