I have a directory of zip files which I want to calculate the (gross) file
size of. Does anyone here know of a way to expose this information using VBA?

--
Chris Jones

Do you want the collective size of the zip files or the uncompressed size of
the files they contain?

What version of Windows?

--
Regards,
Tom Ogilvy


"Chris Jones" wrote in message
...
I have a directory of zip files which I want to calculate the (gross) file
size of. Does anyone here know of a way to expose this information using
VBA?

--
Chris Jones

Tom,

I am after the total uncompressed size of the zip files contained in the
archive.
--
Chris Jones



"Tom Ogilvy" wrote:

Do you want the collective size of the zip files or the uncompressed size of
the files they contain?

What version of Windows?

--
Regards,
Tom Ogilvy


"Chris Jones" wrote in message
...
I have a directory of zip files which I want to calculate the (gross) file
size of. Does anyone here know of a way to expose this information using
VBA?

--
Chris Jones

Sorry, I forgot to note that this is running Office 2003 on WindowsXP
Professional

--
Chris Jones



"Chris Jones" wrote:

Tom,

I am after the total uncompressed size of the zip files contained in the
archive.
--
Chris Jones



"Tom Ogilvy" wrote:

Do you want the collective size of the zip files or the uncompressed size of
the files they contain?

What version of Windows?

--
Regards,
Tom Ogilvy


"Chris Jones" wrote in message
...
I have a directory of zip files which I want to calculate the (gross) file
size of. Does anyone here know of a way to expose this information using
VBA?

--
Chris Jones

Put a new worksheet in the workbook and make it active

Then put this code in a new module in the workbook

Change the filename to point to your file:

Type FileHeader
signature As Long
version_made_by As Integer
version_needed As Integer
bitflags As Integer
comp_method As Integer
lastModFileTime As Integer
lastModFileDate As Integer
crc_32 As Long
comp_size As Long
uncompr_size As Long
fname_len As Integer
extra_field_len As Integer
fcomment_len As Integer
disk_num_start As Integer
internal_fattribute As Integer
external_fattribute As Long
relative_offset As Long
End Type
' char* file_name;
' char* extra_field;
' char* file_comment;


Sub GetDir()
'
' Tom Ogilvy
' 1/30/2006
'
Dim rw As Long
Dim j As Long, i As Long
Dim h As FileHeader
Dim c1 As Byte
Dim s As String, c As String
Dim fName as String

fName = "C:\MyFile.Zip"
Open fName For Binary As #1
rw = 1
i = 1
Do Until Loc(1) LOF(1)

Get 1, i, j
If j = 67324752 Then
ElseIf j = 33639248 Then
Get #1, i, h
ii = i + 46
s = ""
For k = 1 To h.fname_len
Get #1, ii, c1
s = s & Chr(c1)
ii = ii + 1
Next
Cells(rw, 1) = s
Cells(rw, 2) = h.comp_size
Cells(rw, 3) = h.uncompr_size
rw = rw + 1
End If
i = i + 1

Loop
Close #1
End Sub

--
Regards,
Tom Ogilvy


"Chris Jones" wrote in message
...
Sorry, I forgot to note that this is running Office 2003 on WindowsXP
Professional

--
Chris Jones



"Chris Jones" wrote:

Tom,

I am after the total uncompressed size of the zip files contained in the
archive.
--
Chris Jones



"Tom Ogilvy" wrote:

Do you want the collective size of the zip files or the uncompressed
size of
the files they contain?

What version of Windows?

--
Regards,
Tom Ogilvy


"Chris Jones" wrote in message
...
I have a directory of zip files which I want to calculate the
(gross) file
size of. Does anyone here know of a way to expose this information
using
VBA?

--
Chris Jones

Tom,

I tried to run this against a couple of zip files I have and stepping
through the code, it never passed the test 'ElseIf j = 33639248 Then'.

In both zip files the value of j on the second get was 335807307 and not
33639248.
--
Chris Jones



"Tom Ogilvy" wrote:

Put a new worksheet in the workbook and make it active

Then put this code in a new module in the workbook

Change the filename to point to your file:

Type FileHeader
signature As Long
version_made_by As Integer
version_needed As Integer
bitflags As Integer
comp_method As Integer
lastModFileTime As Integer
lastModFileDate As Integer
crc_32 As Long
comp_size As Long
uncompr_size As Long
fname_len As Integer
extra_field_len As Integer
fcomment_len As Integer
disk_num_start As Integer
internal_fattribute As Integer
external_fattribute As Long
relative_offset As Long
End Type
' char* file_name;
' char* extra_field;
' char* file_comment;


Sub GetDir()
'
' Tom Ogilvy
' 1/30/2006
'
Dim rw As Long
Dim j As Long, i As Long
Dim h As FileHeader
Dim c1 As Byte
Dim s As String, c As String
Dim fName as String

fName = "C:\MyFile.Zip"
Open fName For Binary As #1
rw = 1
i = 1
Do Until Loc(1) LOF(1)

Get 1, i, j
If j = 67324752 Then
ElseIf j = 33639248 Then
Get #1, i, h
ii = i + 46
s = ""
For k = 1 To h.fname_len
Get #1, ii, c1
s = s & Chr(c1)
ii = ii + 1
Next
Cells(rw, 1) = s
Cells(rw, 2) = h.comp_size
Cells(rw, 3) = h.uncompr_size
rw = rw + 1
End If
i = i + 1

Loop
Close #1
End Sub

--
Regards,
Tom Ogilvy


"Chris Jones" wrote in message
...
Sorry, I forgot to note that this is running Office 2003 on WindowsXP
Professional

--
Chris Jones



"Chris Jones" wrote:

Tom,

I am after the total uncompressed size of the zip files contained in the
archive.
--
Chris Jones



"Tom Ogilvy" wrote:

Do you want the collective size of the zip files or the uncompressed
size of
the files they contain?

What version of Windows?

--
Regards,
Tom Ogilvy


"Chris Jones" wrote in message
...
I have a directory of zip files which I want to calculate the
(gross) file
size of. Does anyone here know of a way to expose this information
using
VBA?

--
Chris Jones

In addition to Tom's solution:

Sub Tester()
Dim sPath
Dim oApp As Object
Dim x As Integer
Dim o As Object


sPath = "U:\backup\Addin Backup 082503.zip"
Set oApp = CreateObject("Shell.Application")

For Each o In oApp.NameSpace(sPath).Items
Debug.Print o.Name & " ---- " & o.Size
Next o

Set oApp = Nothing

End Sub

--
Tim Williams
Palo Alto, CA


"Chris Jones" wrote in message
...
I have a directory of zip files which I want to calculate the (gross) file
size of. Does anyone here know of a way to expose this information using
VBA?

--
Chris Jones