Thanks for your reply. This is really great but my client does not allow third party software at their site so I had to rely on the compressed folder unzip feature built into Win XP.
Dim intOptions, objItem
Dim objShell
Set objShell = CreateObject("Shell.Application")
intOptions = 256
Set objSource = objShell.NameSpace(FileNameFolderZip).Items()
Set objTarget = objShell.NameSpace(FileNameFolder)
objTarget.CopyHere objSource, intOptions
Hi. I'm using CopyHere in MS Access 2007 to copy and unzip files from a compressed folder (OS=Win XP Pro SP2).
The problem is that it is copying the whole folder but not the individual files within.
Is there some type of parameter that can instruct CopyHere to copy just files from the...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.