Upload a file using File Dialog

[UT227]

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.

[moke123]

take a look at these links

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/copyfile-method

https://docs.microsoft.com/en-us/off...copy-statement

you may also want to move the file instead of copying
https://docs.microsoft.com/en-us/off...ovefile-method

[moke123]

Here's an example

[UT227]

I was having a little problems until I looked at the sample database. Perfect. Thank you.

[moke123]

Glad to help.
Good luck with your project