Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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
|Outlook 2016: Search for messages not working - comes up empty||19||60|
|Populating Data from Excel sheet into Powerpoint Template Slide I created||23||45|
|VBA: copy range dynamically based on config sheet v3||6||24|
|Turning off query prompts on runtime version of Access 2016||5||16|