This is a conundrum I have been unable to solve. I have been using this code for years to unzip files:
Expand|Select|Wrap|Line Numbers
- Public Sub _
- UnZIP( _
- ZIPFile As String, _
- DestPath As String)
- On Error GoTo EH
- Const OverWrite As Long = &H10&
- Dim shApp As Shell
- Set shApp = New Shell
- shApp.Namespace(CVar(DestPath)).CopyHere _
- shApp.Namespace(CVar(ZIPFile)).Items, _
- OverWrite
- Set shApp = Nothing
- Exit Sub
- EH:
- MsgBox Err.Number & vbCrLf & Err.Description
- Exit Sub
- End Sub
I KNOW there are some experts out there who might be able to figure this out. I have all references properly listed, all the folders and files exist, I just can't get the code to work properly. It has worked fine in other DB's without fail--same version, same PC, same everything.
There's got to be somethings easy....
Hepp me CactusData! You're my only hope!