Zipping (native) files with a size cutoff

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Zipping (native) files with a size cutoff

Logged in as: Guest

arrSession:exec spGetSession 2,2,55545

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Zipping (native) files with a size cutoff
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Zipping (native) files with a size cutoff - 1/16/2008 7:17:16 AM

azimzores

Posts: 8
Score: 0
Joined: 12/20/2007
Status: offline

Ok I know there are a number of scripts to zip files and so on, this is not one of those questions as i have a script doing that already. Basicly i am having issues with hitting the ZIP size limitation. I am trying to zip a number of files in a directory which average about 500 meg. Since the zip file limitation is 4 gb i need to be able to have the script create a zip file to about 3gb and then start a new zip file with the rest of the files and so on so you get incremented zip files.

This is the script/ code i have for zipping files:

Option Explicit
Dim arrResult
arrResult = ZipFolder( "C:\Backup\RMAN\", "C:\Backup\Share\share.zip" )
If arrResult(0) <> 0 Then
   WScript.Echo "ERROR " & Join( arrResult, vbCrLf )
End If

Function ZipFolder( myFolder, myZipFile )
   ' Standard housekeeping
   Dim objApp, objFSO, objTxt
   Const ForWriting = 2
   ' Make sure the path ends with a backslash
   If Right( myFolder, 1 ) <> "\" Then
       myFolder = myFolder & "\"
   End If
   ' Use custom error handling
   On Error Resume Next
   ' Create an empty ZIP file
   Set objFSO = CreateObject( "Scripting.FileSystemObject" )
   Set objTxt = objFSO.OpenTextFile( myZipFile, ForWriting, True )
   objTxt.Write "PK" & Chr(5) & Chr(6) & String( 18, Chr(0) )
   objTxt.Close
   Set objTxt = Nothing
   Set objFSO = Nothing
   ' Abort on errors
   If Err Then
       ZipFolder = Array( Err.Number, Err.Source, Err.Description )
       Err.Clear
       On Error Goto 0
       Exit Function
   End If
   
   ' Create a Shell object
   Set objApp = CreateObject( "Shell.Application" )
   ' Copy the files to the compressed folder
   objApp.NameSpace( myZipFile ).CopyHere objApp.NameSpace( myFolder ).Items
   ' Abort on errors
   If Err Then
       ZipFolder = Array( Err.Number, Err.Source, Err.Description )
       Set objApp = Nothing
       Err.Clear
       On Error Goto 0
       Exit Function
   End If
   ' Keep script waiting until compression is done
  Do Until objApp.NameSpace(myZipFile).Items.Count _
          = objApp.NameSpace(myFolder).Items.Count
    '   WScript.Sleep 200
  Loop
   Set objApp = Nothing
   ' Abort on errors
   If Err Then
       ZipFolder = Array( Err.Number, Err.Source, Err.Description )
       Err.Clear
       On Error Goto 0
       Exit Function
   End If
   ' Restore default error handling
   On Error Goto 0
   ' Return code 0 (no error occurred)
   ZipFolder = Array( 0, "", "" )
End Function 
wscript.echo "complete"

So any help on howto meet this task so i can create a series of zip files for a diretory.

/R
Tony

Post #: 1

RE: Zipping (native) files with a size cutoff - 1/16/2008 10:18:20 AM

DiGiTAL.SkReAM

Posts: 1183
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline

I dunno... it seems as if that is a bit beyond the scope of the native ZIP functions in Windows.
I do know, however, that you can get 7z to do this via arguments.
I'm afraid that you are going to have to look for a 3rd party solution for this one.

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

(in reply to azimzores)

Post #: 2

RE: Zipping (native) files with a size cutoff - 1/16/2008 12:57:05 PM

dm_4ever

Posts: 2641
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

What if you check the folder size before you compress? If the size is greater than 3 GB then have the script create subfolders and move a set amount into each....maybe move each file and keep track of the size or divide the number of files into each...once you've seperated the files into smaller groups then run your zip script on each.

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to azimzores)

Post #: 3

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Zipping (native) files with a size cutoff

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts