Sign in to follow this  
Followers 0
GajjarTejas

Problem with _7Zip_Extract()

3 posts in this topic

#1 ·  Posted (edited)

I'm creating script that extract the .7z file to destination folder.Below Is my script

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <GUIConstantsEx.au3>
#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#region ### START Koda GUI section ### Form=C:UsersTejasDesktopForm1.kxf
$Form1 = GUICreate("Form1", 600, 150, 100, 100)
$input = GUICtrlCreateInput("", 25, 25, 241, 21)
$output = GUICtrlCreateInput("", 25, 65, 241, 21)
$inbt = GUICtrlCreateButton("....", 265, 25, 75, 25)
$outbt = GUICtrlCreateButton("....", 265, 60, 75, 25)
$extract = GUICtrlCreateButton("Extract...", 360, 30, 200, 45)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $inbt
$file1 = FileOpenDialog("Input File", "", "All files (*.*;)")
If $file1 <> "" Then GUICtrlSetData($input, $file1)
Case $outbt
$file2 = FileSelectFolder("Choose a folder.", "")
If $file2 <> "" Then GUICtrlSetData($output, $file2)
Case $extract
_7Zip_Extract($file1, $file2,"")
EndSwitch
WEnd

Func _7Zip_Extract($sZipFile, $sDestinationFolder, $sPassword = "")
If FileExists($sZipFile) = 0 Then
Return SetError(1, 0, 0)
EndIf
If StringRight($sDestinationFolder, 1) <> "" Then
$sDestinationFolder &= ""
EndIf
If FileExists($sDestinationFolder) = 0 Then
DirCreate($sDestinationFolder)
EndIf
If $sPassword <> "" Then
$sPassword = "-p" & '"' & $sPassword & '" '
EndIf
Return RunWait('7z.exe' & ' x "' & $sZipFile & '" ' & $sPassword & "-y -o" & '"' & $sDestinationFolder & '"')
EndFunc ;==>_7Zip_Extract

when i press extract button 7z.exe can not run but when i use @ScriptDir & '7z.exe' its run correctly.in other function look like _7Zip_Add run correctly without adding @ScriptDir & ''

what is problem in _7Zip_Extract function?

Edited by GajjarTejas

Share this post


Link to post
Share on other sites



That function looks like something I created. Anyway, where is 7z.exe located? I would change the 7z.exe to @ScriptDir & '7z.exe' if located in the same directory as your application.


_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_ConvertLHWebColor()/_ConvertSHWebColor()_DesktopDimensions()_DisplayPassword()_DotNet_Load()/_DotNet_Unload()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource()_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUIRegisterMsg()_GUISetIcon()_Icon_Clear()/_Icon_Set()_IdleTime()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsSystemDrive()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringCompact()_StringIsValid()_StringRegExpMetaCharacters()_StringReplaceWholeWord()_StringStripChars()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_Create_CTL_CODE()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()Au3 script parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 04/09/2015

Share this post


Link to post
Share on other sites

That function looks like something I created. Anyway, where is 7z.exe located? I would change the 7z.exe to @ScriptDir & '7z.exe' if located in the same directory as your application.

7z.exe is located in script dir but only "7z.exe" not working but when i put "7z.exe" & @ScriptDir & ''

Have you tested on your system? is it working without adding @ScriptDir & '' .....?

Here is _7Zip_Add function which is working without adding @ScriptDir & ''

Func _7Zip_Add($s7z_File_Save_Name, $sDestinationFolder, $sCompression, $sPassword)
If FileExists($sDestinationFolder) = 0 Then
Return SetError(1, 0, 0)
EndIf
If StringRight($sDestinationFolder, 1) <> "" Then
$sDestinationFolder &= ""
EndIf
If $sPassword <> "" Then
$sPassword = "-p" & '"' & $sPassword & '" '
EndIf
If $sCompression <> "" Then
Switch $sCompression
Case "1-No Compression"
$sCompression = " -mx0"
Case "2-Fastest Compression"
$sCompression = " -mx1"
Case "3-Fast Compression"
$sCompression = " -mx3"
Case "4-Normal Compression"
$sCompression = " -mx5"
Case "5-Maximum Compression"
$sCompression = " -mx7"
Case "6-Ultra Compression"
$sCompression = " -mx9"
EndSwitch
EndIf
Return RunWait("7z.exe" & " " & "a" & " " & '"' & $s7z_File_Save_Name & '"' & $sCompression & " " & $sPassword & '"' & $sDestinationFolder & "*" & '"', "") ;, @SW_HIDE
EndFunc ;==>_7Zip_Add
Func _7Zip_Update($name_of_archive, $name_file_to_update)
If FileExists($name_of_archive) = 0 Then
Return SetError(1, 0, 0)
EndIf
If FileExists($name_file_to_update) = 0 Then
Return SetError(1, 0, 0)
EndIf
Return RunWait("7z.exe" & " " & "u" & " " & '"' & $name_of_archive & '"' & " " & '"' & $name_file_to_update & '"', "") ;, @SW_HIDE
EndFunc ;==>_7Zip_Update

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0