ZIP.au3 UDF in pure AutoIt

[Randall_j]

Thank you ! Those function is useful .

[Comboku]

Hi guys,

I have some encrypted files on my hard drive which zip.au3 can't open. This is perfectly fine. The Problem is that my program crashes as soon as it tries to access the file.

Is there a way to detect if the file is encrypted BEFORE autoit tries to open it? I am using _zip_unzipall to unzip the file, i also tried _zip_count with the same result. My files are encrypted with SafeGuard Lan Crypt. 

 

Local $Testzip = "C:\tmp\Test.zip"


$hFileOpen = _Zip_SearchInFile($Testzip, @ScriptDir)
If $hFileOpen = -1 Then
    MsgBox($MB_SYSTEMMODAL, "", "An error occurred when reading the file.")
Else
    MsgBox($MB_SYSTEMMODAL, "", "Done")
EndIf

 

Thanks,

Comboku

[HouseRockerZz]

Hi Torels,

first of all I´d like to thank you for this UDF. 2nd point is, that I´m getting an Error with your UDF... I´m using Windows 10 and the Error message I´m getting is: 

  Reveal hidden contents

"D:\AutoIt\AutoIt3\Include\Zip.au3" (333) : ==> The requested action with this object has failed.:
$hList = $oApp.Namespace($hZipFile).Items
$hList = $oApp.Namespace($hZipFile)^ ERROR

The Code I am working with is:

$Zip = _Zip_Create(@ScriptDir & "\#data\" & "\Backup\" & $Raum & "_" & _NowDate() & " " & $Zeit & " Uhr" &".zip")
  
  $Root = @ScriptDir & "\" & $Raum & $Verbindung & $I & $Endung
      MsgBox($MB_SYSTEMMODAL, "", $Root)
      _Zip_AddFolder($Zip, $Root)

Can you tell me what the problem is?

[lgvlgv]

    If $DLLChk <> 0 Then Return SetError($DLLChk, 0, 0);no dll

Think this udf is based on an dll that dosent exist in win10

sorry, u could try http://www.autoitscript.com/forum/topic/85094-7zip/

this is also with a "dll" but it works greate.

 

Edited August 15, 2016 by lgvlgv

[HouseRockerZz]

  On 8/15/2016 at 6:16 PM, lgvlgv said:

    If $DLLChk <> 0 Then Return SetError($DLLChk, 0, 0);no dll

Think this udf is based on an dll that dosent exist in win10

sorry, u could try http://www.autoitscript.com/forum/topic/85094-7zip/

this is also with a "dll" but it works greate.

 

Expand  

Hi lgvlgv,

it worked a while until I changed something. But I dont really know, what I have changed to let it stop working... 

But thanks for the quick answer! I´ll check this and come back this later.

[HouseRockerZz]

  On 8/15/2016 at 1:24 PM, HouseRockerZz said:

Hi Torels,

first of all I´d like to thank you for this UDF. 2nd point is, that I´m getting an Error with your UDF... I´m using Windows 10 and the Error message I´m getting is: 

  Reveal hidden contents

"D:\AutoIt\AutoIt3\Include\Zip.au3" (333) : ==> The requested action with this object has failed.:
$hList = $oApp.Namespace($hZipFile).Items
$hList = $oApp.Namespace($hZipFile)^ ERROR

The Code I am working with is:

$Zip = _Zip_Create(@ScriptDir & "\#data\" & "\Backup\" & $Raum & "_" & _NowDate() & " " & $Zeit & " Uhr" &".zip")
  
  $Root = @ScriptDir & "\" & $Raum & $Verbindung & $I & $Endung
      MsgBox($MB_SYSTEMMODAL, "", $Root)
      _Zip_AddFolder($Zip, $Root)

Can you tell me what the problem is?

Expand  

I forgot to say, that the creating of the Zipfile works fine. It´s just the Folder adding, i got issues with... 

[HouseRockerZz]

I redownloaded the GUI and copied it again with overwriting. Now everything on my Computer works fine, but on other Computers, the program starts copiing the first file to the zip file and then stops... Has anyone a solution for this problem? 

[lgvlgv]

can u check if this dll or reg key exists?

Func _Zip_DllChk()
    If Not FileExists(@SystemDir & "\zipfldr.dll") Then Return 2
    If Not RegRead("HKEY_CLASSES_ROOT\CLSID\{E88DCCE0-B7B3-11d1-A9F0-00AA0060FA31}", "") Then Return 3
    Return 0
EndFunc   ;==>_Zip_DllChk

 

[HouseRockerZz]

  On 8/16/2016 at 1:31 PM, lgvlgv said:

can u check if this dll or reg key exists?

Func _Zip_DllChk()
    If Not FileExists(@SystemDir & "\zipfldr.dll") Then Return 2
    If Not RegRead("HKEY_CLASSES_ROOT\CLSID\{E88DCCE0-B7B3-11d1-A9F0-00AA0060FA31}", "") Then Return 3
    Return 0
EndFunc   ;==>_Zip_DllChk

 

Expand  

The dll is existing but the reg key isn´t existing... 

Edited August 17, 2016 by HouseRockerZz

[lgvlgv]

Think windows is doing som updates, thats why i went with 7zip, bring my "own" dll.
then it always work and ur not depending on os stuff

Edited August 17, 2016 by lgvlgv

[HouseRockerZz]

  On 8/17/2016 at 11:02 AM, lgvlgv said:

Think windows is doing som updates, thats why i went with 7zip, bring my "own" dll.
then it always work and ur not depending on os stuff

Expand  

How do you mean this?

[lgvlgv]

i also had problems with windows 10, but my script run flawless on other os, thats when i looked at other sulutions,
and found 7zip here on forums, it works very good.

im no script kid  but i think the "$ObjCreate" fails becose of the error returned by  

_Zip_DllChk()

.Local $files = _Zip_Count($hZipFile)
    If $DLLChk <> 0 Then Return SetError($DLLChk, 0, 0);no dll

Edited August 17, 2016 by lgvlgv

[lgvlgv]

maybe win10 updated the zip function? try set dllchk to always 0

[HouseRockerZz]

  On 8/17/2016 at 11:13 AM, lgvlgv said:

i also had problems with windows 10, but my script run flawless on other os, thats when i looked at other sulutions,
and found 7zip here on forums, it works very good.

im no script kid  but i think the "$ObjCreate" fails becose of the error returned by  

_Zip_DllChk()

.Local $files = _Zip_Count($hZipFile)
    If $DLLChk <> 0 Then Return SetError($DLLChk, 0, 0);no dll

Expand  

That´s bad  but how could the DLL Check fail when there is an existing dll?

[lgvlgv]

in both cases it returns error the key also need to be there, maybe windows 10 dosent need it anymore or changed to another key?

 

    If Not FileExists(@SystemDir & "\zipfldr.dll") Then Return 2
    If Not RegRead("HKEY_CLASSES_ROOT\CLSID\{E88DCCE0-B7B3-11d1-A9F0-00AA0060FA31}", "") Then Return 3
    Return 0

[lgvlgv]

try remark both and allways return 0 ?

 

[HouseRockerZz]

This is the only Key I could find with cls... I think it changed...

Shall I try to change the searching filter to this key?

[HouseRockerZz]

  On 8/17/2016 at 11:21 AM, lgvlgv said:

try remark both and allways return 0 ?

 

Expand  

I remarked both and it´s still working... Should I leave like this?

 

Edit: I get the same Error after a few new starts of the program...

Edited August 17, 2016 by HouseRockerZz

[lgvlgv]

u could leave it if it works, but i would go with 7zip until the author updates this script or some one more skilled then me fix the issue  

 

[HouseRockerZz]

Ok thanks