I have a form that I'm trying to upload a file to a server. I am trying to use the File Dialog. I'm using this code:
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Image File", "*.jpg", 1
.FilterIndex = 1
If .Show Then
Me.txtImageFile.Value = .SelectedItems.Item(1)
End If
End With
It saves the path to my text box [txtImageFile]. Now, I need to upload the file to the server: \\server\Documents\Images.
I need the path saved back to my form text box [EmplPic]
I keep looking for ways to do this, but can't find one.