ZIP code module without DLL dependencies???

Create, extract, or both?

If the target machine is XP SP2, then all the DLLs you need are
already installed.

(Although to be honest, I've only does this with a VBScript file, not
in VBA.)

On Mon, 19 Nov 2007 01:56:00 -0800 (PST), The Frog
<Mr************@googlemail.comwrote:

>I am trying to find a solution for handling zipped data without the
need to ship / install any DLL files with the database. Does anybody
know of code to handle ZIP files that does not require any external
references? If I can ship it 'built-in' as either a class module or
standard module then that would be perfect.
Any help would be greatly appreciated.

Please Post Any Replies To This Message Back To the Newsgroup.
There are "Lurkers" around who can benefit by our exchange!

Nov 20 '07 #4

Chuck Grimsby <c.*******@worldnet.att.net.invalidwrote:

>
Create, extract, or both?

If the target machine is XP SP2, then all the DLLs you need are
already installed.

(Although to be honest, I've only does this with a VBScript file, not
in VBA.)

Interesting. Got any URLs with VBScript code?

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/

Nov 20 '07 #5

On Tue, 20 Nov 2007 04:13:10 GMT, "Tony Toews [MVP]"
<tt****@telusplanet.netwrote:

>Chuck Grimsby <c.*******@worldnet.att.net.invalidwrote:
>>Create, extract, or both?
If the target machine is XP SP2, then all the DLLs you need are
already installed.
(Although to be honest, I've only does this with a VBScript file, not
in VBA.)

>Interesting. Got any URLs with VBScript code?

I got the source for this somewhere in Usenet, although I've forgotten
where. I have the full message, but it's on a Backup disk somewhere.
(It's not exactly new!)

Some who *really* knows VBScript could probably do a better job, but
this works.

This creates a Zip file and copies the contents of a whole folder into
it. As always, watch out for word wrap....

---------------------- Cut Here ------------------------------------
Option Explicit
Dim ZipFileName, FolderToZip
Dim oApp, MyHex, MyBinary, i
Dim oFSO, oTF

MyHex = Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0,0, 0)
For i = 0 To UBound(MyHex)
MyBinary = MyBinary & Chr(MyHex(i))
Next

FolderToZip = "C:\Data Files\My Data\"
' in case someone forgets the last slash:
If Right(FolderToZip, 1) <"\" Then
FolderToZip = FolderToZip & "\"
End If

ZipFileName = "G:\Backups\" & _
FormatNowISO & _
"MyDataBackup.zip"

'Create empty Zip File
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTF = oFSO.CreateTextFile(ZipFileName, True)
oTF.Write MyBinary
oTF.Close
Set oTF = Nothing
Set oFSO = Nothing

'Copy the files to the compressed folder
Set oApp = CreateObject("Shell.Application")
oApp.NameSpace(ZipFileName).CopyHere _
oApp.NameSpace(FolderToZip).items

'Keep script waiting until Compressing is done
On Error Resume Next
Do Until oApp.NameSpace(ZipFileName).items.Count =
oApp.NameSpace(FolderToZip).items.Count
Application.Wait (Now + TimeValue("0:00:01"))
Loop
Set oApp = Nothing
On Error GoTo 0

'MsgBox "Done!" & vbnewline & _
"You'll find the zipfile here: " & vbnewline & _
ZipFileName

WScript.Quit

Function FormatNowISO
FormatNowISO = DatePart("yyyy", Now())
FormatNowISO = FormatNowISO & Right("00" & DatePart("m", Now()), 2)
FormatNowISO = FormatNowISO & Right("00" & DatePart("d", Now()), 2)
' if the time is needed:
'FormatNowISO = FormatNowISO & _
Right("00" & DatePart("h", Now()), 2)
'FormatNowISO = FormatNowISO & _
Right("00" & DatePart("n", Now()), 2)
'FormatNowISO = FormatNowISO & _
Right("00" & DatePart("s", Now()), 2)
End Function
---------------------- Cut Here ------------------------------------

I'll have to dig out the backup to get at a un-zip script. As I
remember, it's pretty much the same thing, just copying the files out
of the (zipped) folder. I'll see if I can dig it out over the
Thanksgiving holiday.

Please Post Any Replies To This Message Back To the Newsgroup.
There are "Lurkers" around who can benefit by our exchange!

Nov 21 '07 #6

"Stephen Lebans" <ForEmailGotoMy.WebSite.-WWWdotlebansdot...@linvalid.comwrote:

>A Google search for "Zip Visual Basic class" should get
you started.

Nope. way too many hits without the quotes and way too few hits with the quotes.

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/

Nov 21 '07 #7

Chuck Grimsby <c.*******@worldnet.att.net.invalidwrote:

>>Chuck Grimsby <c.*******@worldnet.att.net.invalidwrote:
>>>Create, extract, or both?
If the target machine is XP SP2, then all the DLLs you need are
already installed.
(Although to be honest, I've only does this with a VBScript file, not
in VBA.)

>>Interesting. Got any URLs with VBScript code?

I got the source for this somewhere in Usenet, although I've forgotten
where.

Thanks but I suspect that could be quite difficult to convert to VB/VBA. I suspect
that VBScripts opening of a .zip file is a lot more intelligent than would be
VB6/VBA.

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/

Nov 21 '07 #8

"Tony Toews [MVP]" <tt****@telusplanet.netwrote in message
news:vu********************************@4ax.com...

Thanks but I suspect that could be quite difficult to convert to VB/VBA.
I suspect
that VBScripts opening of a .zip file is a lot more intelligent than would
be
VB6/VBA.

Actually it wasn't too bad:

Sub CreateZip()
ZipFileName = "c:\temp\test1.zip"
FolderToZip = "c:\temp\testzip\"

HexArray = Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0)
For i = LBound(HexArray) To UBound(HexArray)
BinStr = BinStr & Chr(HexArray(i))
Next
Open ZipFileName For Output As 1
Print #1, BinStr
Close 1

Set oApp = CreateObject("Shell.Application")
oApp.NameSpace(ZipFileName).CopyHere oApp.NameSpace(FolderToZip).items
Do Until oApp.NameSpace(ZipFileName).items.Count =
oApp.NameSpace(FolderToZip).items.Count
DoEvents
Loop
Set oApp = Nothing
End Sub

Although I've yet to find a way to copy individual files into the zip, other
than creating a folder, copying the files into it, then specifying this as
the source folder for the copy (which could be done transparently, but it's
a bit kludgy).

Nov 21 '07 #9

"Stuart McCall" <sm*****@myunrealbox.comwrote:

>Thanks but I suspect that could be quite difficult to convert to VB/VBA.
I suspect
that VBScripts opening of a .zip file is a lot more intelligent than would
be
VB6/VBA.

Actually it wasn't too bad:

No, that wouldn't have been bad at all. However I'm slightly skeptical that the
VBScript object would work in all systems. While I doubt I have any Win 2000 clients
left there could be some. And I'm just a skeptic.

So I think I'll use the infozip dlls so long as they will work if copied into the
same folder as the FE MDE. I do not want to worry about them having to be installed
in the system32 folder.

>Although I've yet to find a way to copy individual files into the zip, other
than creating a folder, copying the files into it, then specifying this as
the source folder for the copy (which could be done transparently, but it's
a bit kludgy).

Interesting that.

Thanks, Tony

--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/

Nov 21 '07 #10

"Stuart McCall" <sm*****@myunrealbox.comwrote:
BTW that might not even work on my system. I did the following to disable the
Windows zipping and am using (a legally purchased) Winzip.

Irritating searching within zip files
regsvr32 /u zipfldr.dll

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/

Nov 22 '07 #11

The Frog <Mr************@googlemail.comwrote:

>My goodness, we seem to have stirred up a lot of interest here.

<smile Sure, we were getting bored.

>With regards to using external dll's such as the infofzip ones, has
anyone got an opinion to offer about their use? I was thinking that I
would make a hidden table and store the dll as a blob, pop the dll
into a temporary location when needed, then destroy it again at the
end of the process. Has anyone done this before or have any other
recommendations? (Installing stuff is actually quite hard in this
corporate environment, so minimising dependencies is crucial -
effectively I need to be able to ship just an MDB / MDE file and let
it do its job without concern for what is / isnt on the system in
question).

Hmm, yes, that's possible I do beleive. Check Stephen Lebans website. Hmm, here's
one but it doesn't explicitly state dlls. http://www.lebans.com/oletodisk.htm That
said it does mention PDF files and such so it's quite possible. Worth spending a
half hour playing with it.

That's something I'm not too worried about as I don't mind packing up a few extra
DLLs for use. But I can see where you are coming from when dealing with IT Nazi
admins.

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/

Nov 22 '07 #12

The Frog

Hi Tony,

The admins here largely are the root cause of my programming problems.
They make unpredictable changes to the OS's on every machine, dont
tell anyone anything, and refuse to take any accountability for their
actions - in short they dont manage all that well and arent made to.

The result is that I have lost many months worth of work due to their
actions (I think something like ~60k lines of code this year so far)
because I cannot guarantee that the application will actually be able
to run on any given day. Some days they work fine and others they
simply wont at all. No way to predict it unfortunately.

Because of this I have set about collecting / creating modules for MS
Access (97) that remove the dependencies from the system itself and
therefore minimise the risk of the application not running. I still
have to keep a copy of MDAC installers on standby, but thats about it.
Right now I am grappling with ZIP so that I can get some output into a
small enough filesize to email to a large group. The alternative would
be to use online drop-boxes such as rapidshare - but as I see it these
represent a risk that potentially sensitive data can end up easily in
the wrong hands (and besides, it probably breaches the rules I have to
stick to).

I will have a play with the DLL option and storing it in the app
itself, and dragging it out when necessary. I will keep you posted
with the progress. Probably wont have the time till next week though
to post any code on this one.

Cheers and thanks for your help

The Frog

Nov 22 '07 #13

"The Frog" <Mr************@googlemail.comwrote in message
news:0c**********************************@g21g2000 hsh.googlegroups.com...

Hi Tony,

<SNIP>

I will have a play with the DLL option and storing it in the app
itself, and dragging it out when necessary. I will keep you posted
with the progress. Probably wont have the time till next week though
to post any code on this one.

Cheers and thanks for your help

The Frog

You can try this module if you like. I've been using it successfully for
years, to "create" DLL's, icons, pictures and gen. purpose binary data. The
two main routines are FileToBinaryData and BinaryDataToFile. The module as
it stands is intended to live in a library mdb. If you wish to use it in a
FE, simply change all CodeDB references to CurrentDb.

It requires a table tblBinaryData, with the structure:

Item Text 50
Value OLE Object

Item is the primary key.

''' CODE START '''
Option Compare Database
'
Private Const TPL_SELECT = "Select Value From tblBinaryData Where Item='?'"

Public Function GetBinaryData(ByVal Item$) As String
'Returns a binary item from tblBinaryData as a string

On Error GoTo GetBinaryData_Err
'
With CodeDb.OpenRecordset(Replace(TPL_SELECT, "?", Item),
dbOpenSnapshot)
GetBinaryData = !Value
.Close
End With

GetBinaryData_Exit:
Exit Function

GetBinaryData_Err:
Resume GetBinaryData_Exit

End Function

Public Function PutBinaryData(ByVal Item$, ByVal Value$) As Boolean
'Stores a binary item in tblBinaryData
'Returns True for success

On Error GoTo PutBinaryData_Err
'
With CodeDb.OpenRecordset("tblBinaryData", dbOpenDynaset)
.FindFirst "Item=" & Quoted(Item)
If .NoMatch Then
.AddNew
!Item = Item
Else
.Edit
End If
!Value = Value
.Update
.Close
End With
'
PutBinaryData = True

PutBinaryData_Exit:
Exit Function

PutBinaryData_Err:
Resume PutBinaryData_Exit

End Function

Public Function DelBinaryData(ByVal Item$) As Boolean
'Deletes a binary item from tblBinaryData
'Returns True for success

On Error GoTo DelBinaryData_Err
'
With CodeDb.OpenRecordset(Replace(TPL_SELECT, "?", Item), dbOpenDynaset)
If .BOF Then Exit Function
.Delete
.Close
End With
'
DelBinaryData = True

DelBinaryData_Exit:
Exit Function

DelBinaryData_Err:
Resume DelBinaryData_Exit

End Function

Public Function FileToBinaryData(ByVal File$, ByVal Item$) As Boolean
'Retrieves a binary item from a file and stores it in tblBinaryData
'Returns True for success

On Error GoTo FileToBinaryData_Err
'
b$ = BinFileToString(File)
If b = "" Then Exit Function
FileToBinaryData = PutBinaryData(Item, b)

FileToBinaryData_Exit:
Exit Function

FileToBinaryData_Err:
Resume FileToBinaryData_Exit

End Function

Public Function BinaryDataToFile(ByVal File$, ByVal Item$) As Boolean
'Retrieves a binary item from tblBinaryData and creates a file from it
'Returns True for success

On Error GoTo BinaryDataToFile_Err
'
b$ = GetBinaryData(Item)
If b = "" Then Exit Function
StringToBinFile b, File
'
BinaryDataToFile = True

BinaryDataToFile_Exit:
Exit Function

BinaryDataToFile_Err:
Resume BinaryDataToFile_Exit

End Function

Public Function BinFileToString(ByVal File) As String
'Returns a binary item retrieved from a file

On Error GoTo BinFileToString_Err
'
f% = FreeFile
Open File For Binary Access Read Lock Write As f%
b$ = Space$(LOF(f))
Get #f%, , b
Close f
'
BinFileToString = b

BinFileToString_Exit:
Exit Function

BinFileToString_Err:
MsgBox Err.Description, vbCritical, "modBinaryData.BinFileToString"
Resume BinFileToString_Exit

End Function

Public Function StringToBinFile(ByVal bin$, ByVal File$) As Boolean
'Creates a file from the passed string
'Returns True for success

On Error GoTo StringToBinFile_Err
'
If Dir(File) <"" Then Kill File
f% = FreeFile
Open File For Binary Access Write Lock Read As f
Put #f, , bin
Close f
'
StringToBinFile = True

StringToBinFile_Exit:
Exit Function

StringToBinFile_Err:
MsgBox Err.Description, vbCritical, "modBinaryData.StringToBinFile"
Resume StringToBinFile_Exit

End Function
''' CODE END '''

Nov 22 '07 #14

"The Frog" <Mr************@googlemail.comwrote in message
news:49**********************************@j20g2000 hsi.googlegroups.com...

Hi Everyone,

<SNIP>

Thankyou all for the valuable input on this too. The scripting stuff
is actually quite intriguing. I would be interested to see the single
file version if anyone has an idea on that one.

Take a look here:

http://www.rondebruin.nl/windowsxpzip.htm#Code

Examples for just about everything.

Nov 22 '07 #15

Stephen Lebans

Hi Stuart,
personally, I would get rid of the string functions in your code. You are
working with binary data, not strings per se. Simply redim an array of Bytes
and use the VBA Get and Put methods to read/write the data. No string
conversions required, uses less resources and you will find the read/write
operations much faster.

Just my $.02

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Stuart McCall" <sm*****@myunrealbox.comwrote in message
news:fi*******************@news.demon.co.uk...

"The Frog" <Mr************@googlemail.comwrote in message
news:0c**********************************@g21g2000 hsh.googlegroups.com...
>Hi Tony,
<SNIP>
>I will have a play with the DLL option and storing it in the app
itself, and dragging it out when necessary. I will keep you posted
with the progress. Probably wont have the time till next week though
to post any code on this one.

Cheers and thanks for your help

The Frog

You can try this module if you like. I've been using it successfully for
years, to "create" DLL's, icons, pictures and gen. purpose binary data.
The two main routines are FileToBinaryData and BinaryDataToFile. The
module as it stands is intended to live in a library mdb. If you wish to
use it in a FE, simply change all CodeDB references to CurrentDb.

It requires a table tblBinaryData, with the structure:

Item Text 50
Value OLE Object

Item is the primary key.

''' CODE START '''
Option Compare Database
'
Private Const TPL_SELECT = "Select Value From tblBinaryData Where
Item='?'"

Public Function GetBinaryData(ByVal Item$) As String
'Returns a binary item from tblBinaryData as a string

On Error GoTo GetBinaryData_Err
'
With CodeDb.OpenRecordset(Replace(TPL_SELECT, "?", Item),
dbOpenSnapshot)
GetBinaryData = !Value
.Close
End With

GetBinaryData_Exit:
Exit Function

GetBinaryData_Err:
Resume GetBinaryData_Exit

End Function

Public Function PutBinaryData(ByVal Item$, ByVal Value$) As Boolean
'Stores a binary item in tblBinaryData
'Returns True for success

On Error GoTo PutBinaryData_Err
'
With CodeDb.OpenRecordset("tblBinaryData", dbOpenDynaset)
.FindFirst "Item=" & Quoted(Item)
If .NoMatch Then
.AddNew
!Item = Item
Else
.Edit
End If
!Value = Value
.Update
.Close
End With
'
PutBinaryData = True

PutBinaryData_Exit:
Exit Function

PutBinaryData_Err:
Resume PutBinaryData_Exit

End Function

Public Function DelBinaryData(ByVal Item$) As Boolean
'Deletes a binary item from tblBinaryData
'Returns True for success

On Error GoTo DelBinaryData_Err
'
With CodeDb.OpenRecordset(Replace(TPL_SELECT, "?", Item),
dbOpenDynaset)
If .BOF Then Exit Function
.Delete
.Close
End With
'
DelBinaryData = True

DelBinaryData_Exit:
Exit Function

DelBinaryData_Err:
Resume DelBinaryData_Exit

End Function

Public Function FileToBinaryData(ByVal File$, ByVal Item$) As Boolean
'Retrieves a binary item from a file and stores it in tblBinaryData
'Returns True for success

On Error GoTo FileToBinaryData_Err
'
b$ = BinFileToString(File)
If b = "" Then Exit Function
FileToBinaryData = PutBinaryData(Item, b)

FileToBinaryData_Exit:
Exit Function

FileToBinaryData_Err:
Resume FileToBinaryData_Exit

End Function

Public Function BinaryDataToFile(ByVal File$, ByVal Item$) As Boolean
'Retrieves a binary item from tblBinaryData and creates a file from it
'Returns True for success

On Error GoTo BinaryDataToFile_Err
'
b$ = GetBinaryData(Item)
If b = "" Then Exit Function
StringToBinFile b, File
'
BinaryDataToFile = True

BinaryDataToFile_Exit:
Exit Function

BinaryDataToFile_Err:
Resume BinaryDataToFile_Exit

End Function

Public Function BinFileToString(ByVal File) As String
'Returns a binary item retrieved from a file

On Error GoTo BinFileToString_Err
'
f% = FreeFile
Open File For Binary Access Read Lock Write As f%
b$ = Space$(LOF(f))
Get #f%, , b
Close f
'
BinFileToString = b

BinFileToString_Exit:
Exit Function

BinFileToString_Err:
MsgBox Err.Description, vbCritical, "modBinaryData.BinFileToString"
Resume BinFileToString_Exit

End Function

Public Function StringToBinFile(ByVal bin$, ByVal File$) As Boolean
'Creates a file from the passed string
'Returns True for success

On Error GoTo StringToBinFile_Err
'
If Dir(File) <"" Then Kill File
f% = FreeFile
Open File For Binary Access Write Lock Read As f
Put #f, , bin
Close f
'
StringToBinFile = True

StringToBinFile_Exit:
Exit Function

StringToBinFile_Err:
MsgBox Err.Description, vbCritical, "modBinaryData.StringToBinFile"
Resume StringToBinFile_Exit

End Function
''' CODE END '''

Nov 23 '07 #16

"Stephen Lebans" <ForEmailGotoMy.WebSite.-WWWdotlebansdot...@linvalid.com>
wrote in message news:47**********************@news.aliant.net...

Hi Stuart,
personally, I would get rid of the string functions in your code. You are
working with binary data, not strings per se. Simply redim an array of
Bytes and use the VBA Get and Put methods to read/write the data. No
string conversions required, uses less resources and you will find the
read/write operations much faster.

Just my $.02

<SNIP>

I appreciate the comment, but I think you need to look again. I'm not doing
any conversions, simply using a string as a buffer, and I'm using Get/Put to
read/write. However I take your point re the speed of read/write ops. I'll
run a few tests.

One thing I have been meaning to do is remove the ByVal's from the param
declares (can't remember why I did that, but then I did write this in Access
2.0). Just not got round to it yet.

Thanks, not least for making me look over it again. I just spotted that I'm
using a function from another module in the library (Quoted - surrounds data
with Chr(34)'s). I'll correct this for The Frog's benefit.

Nov 23 '07 #17

I just realised that there's a small function missing. Just add this to the
module:

Public Function Quoted(StringToQuote As String) As String
If Left(StringToQuote, 1) <Chr(34) Then
StringToQuote = Chr(34) & StringToQuote & Chr(34)
End If
Quoted = StringToQuote
End Function

Nov 23 '07 #18

On Thu, 22 Nov 2007 00:26:52 -0000, "Stuart McCall"
<sm*****@myunrealbox.comwrote:

>"Tony Toews [MVP]" <tt****@telusplanet.netwrote in message
news:nd********************************@4ax.com.. .
>"Stuart McCall" <sm*****@myunrealbox.comwrote:

So I think I'll use the infozip dlls so long as they will work if copied
into the
same folder as the FE MDE. I do not want to worry about them having to be
installed
in the system32 folder.

>Yes, I have a developer's licence for BsZip (Big Speed Zip) which I've had
for years. I'll not be giving that up in a hurry. I'm just intrigued with
the way this method works.

There's also the (Free and Open Source) 7-Zip: http://www.7-zip.org/

which has a built-in command line interface. It's also "portable",
meaning it can run from a USB key without installing anything.

Please Post Any Replies To This Message Back To the Newsgroup.
There are "Lurkers" around who can benefit by our exchange!

Nov 23 '07 #19

On Wed, 21 Nov 2007 10:01:25 -0000, "Stuart McCall"
<sm*****@myunrealbox.comwrote:

>Although I've yet to find a way to copy individual files into the zip, other
than creating a folder, copying the files into it, then specifying this as
the source folder for the copy (which could be done transparently, but it's
a bit kludgy).

To copy a individual file into the zip file via VBS, you just do:

FileToZip = "C:\Data Files\My Data\MyFile.mdb"
set oApp = CreateObject("shell.application")
oApp.namespace(ZipFileName).CopyHere FileToZip

rather then the

'Copy the files to the compressed folder
Set oApp = CreateObject("Shell.Application")
oApp.NameSpace(ZipFileName).CopyHere _
oApp.NameSpace(FolderToZip).items

Everything else is the same.
To copy files out of the ZipFile do:

---------------------- Cut Here ------------------------------------
CopyTo = "C:\test"
ZipFileName= "G:\Downloads\20071121.zip"

Set oApp = CreateObject("Shell.Application")
oApp.NameSpace(CopyTo).CopyHere(oApp.NameSpace(Zip FileName).items)
---------------------- Cut Here ------------------------------------

It will extract all the files in the zip file.
Please Post Any Replies To This Message Back To the Newsgroup.
There are "Lurkers" around who can benefit by our exchange!

Nov 23 '07 #20

"Chuck Grimsby" <c.*******@worldnet.att.net.invalidwrote in message
news:8a********************************@4ax.com...

On Wed, 21 Nov 2007 10:01:25 -0000, "Stuart McCall"
<sm*****@myunrealbox.comwrote:
>>Although I've yet to find a way to copy individual files into the zip,
other
than creating a folder, copying the files into it, then specifying this as
the source folder for the copy (which could be done transparently, but
it's
a bit kludgy).

To copy a individual file into the zip file via VBS, you just do:

<SNIP>

Thanks for that. I found this site:

http://www.rondebruin.nl/windowsxpzip.htm#Code

has examples of all that. The one thing they don't demonstrate, which is
eluding me also (so far), is how to extract one file from a zip. The items
collection, although having a Count property, cannot be addressed either
with a numeric or text index:

oApp.NameSpace(ZipFileName).items(1)
oApp.NameSpace(ZipFileName).items("test.txt")

However, this works:

For Each item In oApp.NameSpace(ZipFileName).items
Debug.Print item
Next

Any idea how to address an individual item of the items collection?

Nov 24 '07 #21

Chuck Grimsby <c.*******@worldnet.att.net.invalidwrote:

>There's also the (Free and Open Source) 7-Zip: http://www.7-zip.org/

which has a built-in command line interface.

I much prefer a dll solution so I'll know if it's executed properly. Command line
doesn't thrill me.

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/

Nov 24 '07 #22

David W. Fenton

"Tony Toews [MVP]" <tt****@telusplanet.netwrote in
news:57********************************@4ax.com:

I much prefer a dll solution so I'll know if it's executed
properly. Command line doesn't thrill me.

But can't you redirect commandline output to a file and use that to
figure out what happened? Or use a batch file and DOS ErrorLevel?

--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/

Nov 25 '07 #23

"David W. Fenton" <XX*******@dfenton.com.invalidwrote:

>I much prefer a dll solution so I'll know if it's executed
properly. Command line doesn't thrill me.

But can't you redirect commandline output to a file and use that to
figure out what happened? Or use a batch file and DOS ErrorLevel?

Sure, but again that's more work and more things to go wrong compared to a dll
solution which returns an error code.

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/

Nov 25 '07 #24

"Stuart McCall" <sm*****@myunrealbox.comwrote in message
news:fi*******************@news.demon.co.uk...

"Chuck Grimsby" <c.*******@worldnet.att.net.invalidwrote in message
news:8a********************************@4ax.com...
>On Wed, 21 Nov 2007 10:01:25 -0000, "Stuart McCall"
<sm*****@myunrealbox.comwrote:
>>>Although I've yet to find a way to copy individual files into the zip,
other
than creating a folder, copying the files into it, then specifying this
as
the source folder for the copy (which could be done transparently, but
it's
a bit kludgy).

To copy a individual file into the zip file via VBS, you just do:
<SNIP>

Thanks for that. I found this site:

http://www.rondebruin.nl/windowsxpzip.htm#Code

has examples of all that. The one thing they don't demonstrate, which is
eluding me also (so far), is how to extract one file from a zip. The items
collection, although having a Count property, cannot be addressed either
with a numeric or text index:

oApp.NameSpace(ZipFileName).items(1)
oApp.NameSpace(ZipFileName).items("test.txt")

However, this works:

For Each item In oApp.NameSpace(ZipFileName).items
Debug.Print item
Next

Any idea how to address an individual item of the items collection?

Please ignore this question. I figured it out:

oApp.NameSpace(ZipFileName).items.Item(1)

or

oApp.NameSpace(ZipFileName).items.Item("test.txt")

Nov 25 '07 #25

David W. Fenton

"Tony Toews [MVP]" <tt****@telusplanet.netwrote in
news:hq********************************@4ax.com:

"David W. Fenton" <XX*******@dfenton.com.invalidwrote:

>>I much prefer a dll solution so I'll know if it's executed
properly. Command line doesn't thrill me.

But can't you redirect commandline output to a file and use that
to figure out what happened? Or use a batch file and DOS
ErrorLevel?

Sure, but again that's more work and more things to go wrong
compared to a dll solution which returns an error code.

But you have to have the DLL properly registered, which may not work
well for certain locked-down scenarios.

--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/

Nov 25 '07 #26

"David W. Fenton" <XX*******@dfenton.com.invalidwrote:

>But you have to have the DLL properly registered, which may not work
well for certain locked-down scenarios.

Not to my knowledge. So long as the DLL works in the same folder as the FE MDE you
should be just fine.

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/

Nov 26 '07 #27

The Frog

It is interesting looking at the scripting options for this. Does
anyone know if there is a way to make use of a library from scripting
without having to register the dll? As David mentioned, it can be a
problem to register such things in heavily controlled environments,
and this is the case with where I work. There is also a problem with
different platforms so the WinXP scripting solution will only work on
a few machines.

As a secondary point, I would like to ask for some advice on the
possible creation of a 'zip' module / class module. The implementation
of such a thing could be quite useful, especially if you could
compress data sufficiently (eg with BLOB's) before stroing directly in
the database, not to mention the standard file handling stuff. If one
were to attempt such a thing, what would your considered opinions be
on the most useful implementation of such a thing? I was leaning
towards a class module with the necessary properties and methods to
handle things, but I considered that there might be an issue with
particularly large hunks of data, whereby it may be more efficient /
effective to simply use a function to return the results of the
desired compress / uncompress operation. Your thoughts would be
appreciated :-)

Cheers

The Frog

Nov 26 '07 #28

The Frog

<REPOST - Dont know why it didnt show up properly....>

It is interesting looking at the scripting options for this. Does
anyone know if there is a way to make use of a library from scripting
without having to register the dll? As David mentioned, it can be a
problem to register such things in heavily controlled environments,
and this is the case with where I work. There is also a problem with
different platforms so the WinXP scripting solution will only work on
a few machines.

As a secondary point, I would like to ask for some advice on the
possible creation of a 'zip' module / class module. The
implementation
of such a thing could be quite useful, especially if you could
compress data sufficiently (eg with BLOB's) before stroing directly
in
the database, not to mention the standard file handling stuff. If one
were to attempt such a thing, what would your considered opinions be
on the most useful implementation of such a thing? I was leaning
towards a class module with the necessary properties and methods to
handle things, but I considered that there might be an issue with
particularly large hunks of data, whereby it may be more efficient /
effective to simply use a function to return the results of the
desired compress / uncompress operation. Your thoughts would be
appreciated :-)
Cheers
The Frog

Nov 27 '07 #29

Personally, I don't think you will be able to find a way to do this
without installing a dll or using pre-existing installed dlls that
will work on all windows platforms. The Zip functions didn't exist as
a part of the operating system (for example) until XP.

There are a number of pre-existing modules and class modules around to
handle WinZip-ing files. Feel free to use which ever one you want,
but those will require installing at least some version of WinZip.

I can't in all good conscious recommend storing compressed data in a
Access database. That sort of information (encrypted or not) is not
well suited to a database of any sort, though most will allow you to
do so. It just isn't a "good practice". It would not be fast or
efficient to do so.

Why are you trying to accomplish doing this? Knowing that, we might
be able to help you find an acceptable solution.
On Tue, 27 Nov 2007 01:07:19 -0800 (PST), The Frog
<Mr************@googlemail.comwrote:

><REPOST - Dont know why it didnt show up properly....>

It is interesting looking at the scripting options for this. Does
anyone know if there is a way to make use of a library from scripting
without having to register the dll? As David mentioned, it can be a
problem to register such things in heavily controlled environments,
and this is the case with where I work. There is also a problem with
different platforms so the WinXP scripting solution will only work on
a few machines.

As a secondary point, I would like to ask for some advice on the
possible creation of a 'zip' module / class module. The
implementation
of such a thing could be quite useful, especially if you could
compress data sufficiently (eg with BLOB's) before stroing directly
in
the database, not to mention the standard file handling stuff. If one
were to attempt such a thing, what would your considered opinions be
on the most useful implementation of such a thing? I was leaning
towards a class module with the necessary properties and methods to
handle things, but I considered that there might be an issue with
particularly large hunks of data, whereby it may be more efficient /
effective to simply use a function to return the results of the
desired compress / uncompress operation. Your thoughts would be
appreciated :-)

Please Post Any Replies To This Message Back To the Newsgroup.
There are "Lurkers" around who can benefit by our exchange!

Nov 28 '07 #30

On Thu, 29 Nov 2007 00:59:26 -0800 (PST), The Frog
<Mr************@googlemail.comwrote:

>I have already secured the
payload. I am really just looking for a way to crush a file to its
smallest possible size before transmission.
Any ideas?

Sorry for the day's delay in replying. I was searching my archives.
I half-remember playing with some code that duplicated the LZH
compression scheme, but I can't seem to find any in a format I can
still open. The files I have are (I think) in the old Pro basic 7
format, that I didn't save as text. (I don't think I have a computer
that will still run that old programming language, darn it!)

You might want to spend some time at Planet Source Code or some other
site like that to see if they have any thing you can use.

Please Post Any Replies To This Message Back To the Newsgroup.
There are "Lurkers" around who can benefit by our exchange!

Nov 30 '07 #31

"Chuck Grimsby" <c.*******@worldnet.att.net.invalidwrote in message
news:sm********************************@4ax.com...

The files I have are (I think) in the old Pro basic 7
format, that I didn't save as text. (I don't think I have a computer
that will still run that old programming language, darn it!)

If you mean Microsoft Basic 7 Pro, I do. If you'd like to mail them over
I'll see if I can send you the text version. Remove 'un' from my addy to get
my real address. Might not be instant - I may have to play with the m/c to
boot it. For one thing the CMOS battery will be dead by now, but I have the
hard drive parameters, so I ought to be good to go.

Dec 1 '07 #32

The Frog

Hi Guys,

Thanks for getting back to me. I have managed to locate the source
code claiming to be a powerbasic implementation of the ZIP Deflate
algorithm. I will send you a copy via email.

If I can reverse engineer it into a VBA implementation I will. I just
have to get the time to sit down quietly and do it. I will then post
the resultant code here in this newsgroup so we dont ever lose it :-)

Thankyou both for your help with this. I appreciate the guidance.

Cheers

The Frog

Dec 3 '07 #33

On Sat, 1 Dec 2007 00:49:09 -0000, "Stuart McCall"
<sm*****@myunrealbox.comwrote:

>"Chuck Grimsby" <c.*******@worldnet.att.net.invalidwrote in message
news:sm********************************@4ax.com.. .
>The files I have are (I think) in the old Pro basic 7
format, that I didn't save as text. (I don't think I have a computer
that will still run that old programming language, darn it!)

If you mean Microsoft Basic 7 Pro, I do. If you'd like to mail them over
I'll see if I can send you the text version. Remove 'un' from my addy to get
my real address. Might not be instant - I may have to play with the m/c to
boot it. For one thing the CMOS battery will be dead by now, but I have the
hard drive parameters, so I ought to be good to go.

Actually, I found a computer in my "collection" that could run BC7 (it
even still had windows 3.11 on it!), but the file isn't a BC7 file.
Nor a GW Basic file. It may be GFA Basic. I think I still have the
disks for that... If it's Pure Basic, or Real Basic, I'll have to dig
a bit deeper into the archives.

'Course it may be some other language... Hmmm... I wonder if it's
VB3? This could get interesting!
Please Post Any Replies To This Message Back To the Newsgroup.
There are "Lurkers" around who can benefit by our exchange!

Dec 5 '07 #34

The Frog

Hi Chuck,

I might just have to go through the whole lot on paper. I might even
try and locate an old dot matrix printer for the 'feel' of the
situation... I think there is an old Star NL-10 alround here
somewhere...

I figure that as long as I can follow the individual steps required to
make the thing work then I can probably reverse engineer it into a VBA
version. My interest is really the compression more than anything
else, so the 'file' stuff is secondary to my purposes but would be
good to have in there. I'll see what I can come out with over the
weekend.

By the way, do you know of any implementations (again DLL-less) in VBA
for doing error correction routines such as Reed Solomon? I started to
have a bit of a dig through and have found some C code to do the job
of encoding, but not for decoding. Adding Forward error correction
(FEC) capabilities would potentially be the last of the hurdles I have
to overcocme. I thought that since it has been around so long someone
might have done it in pure VB / VBA but I cannot locate anything
easily on Google. Do you know of anything?

Cheers

The Frog

Dec 5 '07 #35