Looking for help to make my function run faster

[gte]

The dll file is attached, that is necessary to test this with.

It takes about 6 times as long with this dll/script, as it does using the OEM XP compression dll. I can't use that one though, because it won't work on server 2000 and this dll seems to be OS independent?

Any help/improvements would be appreciated. I'm trying to get the windows one to work also, but I'm not sure that's going to pan out, so it'd be nice to have a comparable alternative.

expandcollapse popup

FileInstall("C:\file includes\xzip\xzip.dll", "c:\winnt\system32\xzip.dll", 1)


_unziposindependent()



func _unziposindependent()

 

           ; Local $objZip

           ;$objZip = ObjCreate("XStandard.Zip")

           ;If IsObj($objZip) Then
           ;    $objZip.UnPack("d:\dma\fecs\downloadbak\test\ACSKL1.R090914.AAAA29.DS010Z.ZIP", "C:\Temp\testxmls", "*.xml")

            ;Else
            ;MsgBox(0,0, "Can't find object")
        ;EndIf
        
    Local $sZipFile="d:\dma\fecs\downloadbak\test\"
    Local $sFolderStructure= "C:\Temp\testxmls" 
    Local $oShell = ObjCreate("Shell.Application")
    Local $oOriginFolder = $oShell.NameSpace($sZipFile) 
    
    If Not IsObj($oOriginFolder) Then
        MsgBox(0, "Set Error", 3)
        Return SetError(3, 0, 0) ; unavailable location
    EndIf
        MsgBox(0, "oOriginFolder", $oOriginFolder.items.count)
        
        local $hList = $oOriginFolder.Items
        local $item
        local $found = 0
        local $sFilename
        local $itemCount=$oOriginFolder.items.count
        
        if ($itemCount >0) Then
            Local $objZip = ObjCreate("XStandard.Zip")
            For $item in $hList
                $sFilename=$item.name
                $objZip.UnPack($sZipFile & $sFilename, $sFolderStructure, "*.xml")
            Next
        EndIf
EndFunc

xzip.dll

[GEOSoft]

Take a look at using the command line version of 7zip (7za.exe) and you will save yourself a lot of trouble.

[gte]

Through the 7zip.au3 or through 7zips site?

Take a look at using the command line version of 7zip (7za.exe) and you will save yourself a lot of trouble.

[GEOSoft]

7zip site. All you need is the command line version.

EDIT:

http://downloads.sourceforge.net/sevenzip/7za465.zip

Edited November 5, 2009 by GEOSoft

[gte]

Thanks!

I wasted 5 days on trying to get the windows version to work ugh!

You probably saved me another 5 days with this, it works great!

7zip site. All you need is the command line version.

EDIT:

http://downloads.sourceforge.net/sevenzip/7za465.zip