Copying files using a file dialog to select them

[LukeBatty]

Private Sub Command5_Click()


Dim mydlg As Office.FileDialog
Dim FSO As Object
Dim ServerReport As String

ServerReport = DLookup("Test_Field", "Test", "ID = 1")
Set mydlg = Application.FileDialog(msoFileDialogFilePicker)
With mydlg
.AllowMultiSelect = True
.Title = "Select .xml folder to import"


.InitialFileName = CurrentProject.path
.Filters.Clear
.Filters.Add ".xml", "*.xml*"
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
Next
Else
MsgBox "You must select an excel file to import into access table", vbOKOnly + vbInformation, "Excel"
Set mydlg = .SelectedItems
End If

Set FSO = CreateObject("scripting.filesystemobject")

FSO.CopyFile Source:=mydlg, Destination:=ServerReport
MsgBox "You can now find the server reports in " & ServerReport, vbInformation, "Server Report"

End With


End Sub

I am trying to select xml files using a file dialog to then move them to another folder defined in my access database, but i can't seem to find a way that will copy the files to the folder and also before the files are moved they need to be extracted from a zip file Thank in Advance Luke B.

[June7]

Google: vba open zip file extract
http://excelexperts.com/Unzip-Files-using-VBA

[LukeBatty]

Ok thats fine i understand that, but i dont know how to copy files over using filedialog to select them and move them

[aytee111]

Open the browse window for the user to select a file: http://www.minnesotaithub.com/2013/0...cess-with-vba/

To copy a file: FileCopy from_path_file, to_path_file

[LukeBatty]

Thanks for that

[June7]

Do you need to copy the zip folder or just its contents? User selects the zip folder with dialog then code extracts the contents and saves to designated location.

[LukeBatty]

Do you need to copy the zip folder or just its contents? User selects the zip folder with dialog then code extracts the contents and saves to designated location.

Sorry for the slow reply, This is exactly what I was on about, if you have a solution that would be greatly appreciated.

[June7]

Google: Access extract zip

Here is one https://expertosmicrosoftaccess.com/...mmicrosoftvba/