Manco a dirlo Funzionaaaaa
Ho fatto così:
ho reso la tua Function Publica perchè la debbo chiamare da diversi posti
Public Function UnzipAFile(zippedFileFullName As Variant, unzipToPath As Variant)
Dim ShellApp As Object
'Copy the files & folders from the zip into a folder
Set ShellApp = CreateObject("Shell.Application")
ShellApp.Namespace(unzipToPath).CopyHere ShellApp.Namespace(zippedFileFullName).items
End Function
La chiamata così:
Private Sub Comando0_Click()
Dim PathSource As Variant, PathDestino As Variant
Dim NomeFile As String, db As DAO.Database, rs1 As DAO.Recordset
PathDestino = "C:\Users\Giovanni\Desktop\MyZip\"
Set rs1 = CurrentDb.OpenRecordset("TbFile", dbOpenDynaset)
rs1.MoveFirst
Do Until rs1.EOF
PathSource = (rs1!Path) & (rs1!NomeFile)
UnzipAFile PathSource, PathDestino
rs1.MoveNext
Loop
End Sub
Grazie infinite, alla prossima