Mark: You looked at the first piece of code only... scroll down and
you'll find the uncompressing code. (I'll paste it again here)
=== paste begin
dim fso, strFile
strFile = "d:\tempp\test.txt"
set fso=createObject("Scripting.fileSystemObject")
set wshShell = createObject("Wscript.Shell")
set fl = fso.getFile(strFile)
if (fl.attributes AND 2048) then
strCompactCmd = "%comspec% /c compact /u """ & strFile &
""""
wscript.echo "Trying to uncompress...using command:" &
strCompactCmd
set objOut = wshShell.exec(strCompactCmd)
while objOut.status=0
wscript.sleep 1000
wend
strOP=objOut.StdOut.ReadAll()
if instr(1,strOP,"[OK]") = 0 then
wscript.echo "Error uncompressing file: " & strFile
'wscript.echo strOP
else
wscript.echo "File: " & strFile & " uncompressed
successfully"
end if
else
wscript.echo "File is not compressed, aborting uncompress
operation."
end if
=== paste end
Regards
Chris
On Jul 10, 8:29 pm, "Mark" <mreed1...@ntlworld.comwrote:
Quote:
Hi Chris,
apologies again for not being clear in my original post. The link you
have sent worked as you stated but instead of compressing a file by setting
it's advanced properties to "Compress contents to save disc space" = TRUE, I
want to be able to extract the contents of a .zip file which this code does
not do :o(
>
Many thanks,
>
Mark
>
"Chris L." <diver...@uol.com.arwrote in message
>
news:1184100107.768038.319450@o61g2000hsh.googlegr oups.com...
>
>
>
Quote:
On Jul 10, 4:03 pm, "Mark" <mreed1...@ntlworld.comwrote:
Quote:
Good evening all,
using a XP pro platform and Access 2003 SP2, is it possible to
identify
a .zip file, inflate the file and then import the contents? I'm pretty
certain I could code steps 1 & 3 but over an hour of googling, I haven't
found anything which has been of any help.
>
Quote:
Quote:
Thanks in advance,
>
>
Quote:
Please see if this helps
>
>
Quote:
AFAICS involves using VBS to invoke OS command "compact" with command
line switches to uncompress a given file.- Hide quoted text -
>
- Show quoted text -
