On Sat, 12 Mar 2011 18:34:39 +0100
"Enrico Maria Giordano" <[email protected]> wrote:
> #include "Directry.ch"
> #define MAX_BUFFER 4096
> FUNCTION MAIN()
>
> LOCAL aDir, aFile := {}
> LOCAL oZip
> LOCAL i
>
> aDir = DIRECTORY( "t\*.*" )
> FOR i = 1 TO LEN( aDir )
> AADD( aFile, aDir[ i, F_NAME ] )
> NEXT
> ? LEN( aFile ) // 135 files
> oZip := T7Zip():New()
> oZip:cArcName = "Test.7z"
> oZip:aFiles = aFile
> oZip:nBuffer = MAX_BUFFER
> oZip:Create()
> RETURN NIL
> All what I get is a Test.7z of 556 bytes.
Strange!
I run the sample and it creates Test.7z in seconds resulting in:
Folders: 16
Files: 1168
Size: 19532644
Compressed: 4198109
(My folder is different than yours, certainly)
Andi
------------------------------------------------------------------------------
Colocation vs. Managed Hosting
A question and answer guide to determining the best fit
for your organization - today and in the future.
http://p.sf.net/sfu/internap-sfd2d
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
