Request: Ahk script to extract archive to subfolder of current directory

[chashnniel]

sorry to post in here.
  Im new here so i have no rights to post a topic, also my English is not so well.
i know there are many great developers here and i got an ideal (maybe someone already did this)
  Hope you guys can make an AKH script to do this:
when i press ALT+Win+Lbutton on a zip/rar etc file. it automatic extract it to the current folder.  But what i need is:
  if the zip file contains one folder or one file in it, then just extract it (like extract it here)
  if the zip file contains several files but not in a folder, then it creates a folder (based on zip_name) for it. (like what extract to xxx folder do)

thus i don't have to check each downloaded zip file whether there is a folder in it. then: right click - choose 7zip - and choose action
and i think it would help TC a lot

[Curt]

I know nothing about coding, but instinctively I think your request is much too big for a person. It must be a job for the .zip authoring companies. One problem is the huge number of different extension libraries - larger companies can handle such a task, but how should a private, sparetime coder?

Zip (file format)^w

[4wd]

Not really Curt, there's a couple of options:
1. Extract the archive to a temporary folder, check the contents, move to the final destination - probably the easiest since you're going to extract anyway.
2. Use 7-Zip, (library or command line version), to get a list of the contents, determine type, and then either create a destination folder or extract to the destination directly as necessary.

[Curt]

^ you may need to read his post more closely; I believe chashnniel is saying your options takes far too much work...

[skwire]

^ you may need to read his post more closely; I believe chashnniel is saying your options takes far too much work...

Curt, the options/scenarios the OP wants can easily be handled in programming.  Furthermore, I agree with 4wd, and would have suggested the same two methods.

[KodeZwerg]

If a teamproject is possible, i could offer the part where files get extracted (zip) without need to decompress to temp folder.
I could integrate full zip function inside own app, so checking if there is a file in root of archive aint a pain to me.
I could do a CLI, like first parameter is zip filename and second root of destination folder.
The hotkey part, how to get archive filename, how decide destination name, there i am clueless.
Okay, as destination root i could easy extract archives path, but still no idea how to get a archive filename just by pressing some keys.

If such is helpful, let me know.

[4wd]

If a teamproject is possible, i could offer the part where files get extracted (zip) without need to decompress to temp folder.

A temporary folder created in the destination folder is the easiest method:

1. Extract contents to new temporary folder using 7-Zip command, (or library routines)
2. Get contents of temporary folder
3. Determine types of contents, (don't even need to do that, just count the number of items)
4. Contents:
- If a single file/folder move it to the parent folder and delete the temporary folder
- If multiple files/folders rename temporary folder to archive name sans extension
5. Go make a cup of coffee

Pretty easy in Powershell but not really any provision for a hotkey so simpler in AHK, AutoIT, or some other language.

Proof of concept (no error checking at all):

Code: ( powershell)

<#
  Uses 7Zip4Powershell module: https://www.powershellgallery.com/packages/7Zip4Powershell/1.9.0

.\ExArc.ps1 <archive> <destination>

<archive> = full path to archive with quotes if necessary
<destination> = destination path with no trailing \
#>


Param (
  [string]$archive,
  [string]$dest
)

$tempdest = $dest + '\temp7zip'
Expand-7Zip -ArchiveFileName $archive -TargetPath $tempdest

$items = Get-ChildItem -Path $tempdest

switch ($items.Count) {
  1 {
      Move-Item $items[0].FullName $dest
      Remove-Item $tempdest -Recurse -Force
    }
  0 {
      Write-Host "Ain't nuffin' there!"
    }
  default {
    Rename-Item $tempdest ($dest + '\' + ([io.path]::GetFileNameWithoutExtension($archive)))
    }
}

BTW, referring to the OP I'm assuming TC = Total Commander which is what he wants it to work with, correct?

Maybe Total Commander has a Powershell interface, (see here)?

So, in theory, TC can set a hotkey that passes the selected objects, (archives), to a Powershell script that does the above for each file.

DISCLAIMER: I don't use Total Commander.

Using the info at that link apparently %L is a temp text file containing a list of selected files.  This will probably need tweaking, (not to mention checking for existing files/folders), to stop/redirect output, etc but it should be a start:

Command: PowerShell -NoProfile -NoExit -ExecutionPolicy Bypass -File "%COMMANDER_PATH%\TOOLs\CMDs\ExArc-TC.ps1"
Parameters: '% L'
Start Path:
Icon File: Powershell
Tooltip: Extract each archive

Code: ( powershell)

<#
  *** REQUIRES ***
    7Zip4Powershell module: https://www.powershellgallery.com/packages/7Zip4Powershell/1.9.0

.\ExArc-TC.ps1 <textfile>

<textfile> = list of archives: full path, one per line
#>


Param (
  [string]$selFiles
)

$files = Get-Content $selFiles
ForEach ($file in $files) {
  $dest = [io.path]::GetDirectoryName($file)
  $tempdest = $dest + '\temp7zip'
  Expand-7Zip -ArchiveFileName $file -TargetPath $tempdest

  $items = Get-ChildItem -Path $tempdest

  switch ($items.Count) {
    1 {
        Move-Item $items[0].FullName $dest
        Remove-Item $tempdest -Recurse -Force
      }
    0 {
        Write-Host "Ain't nuffin' there!"
      }
    default {
      Rename-Item $tempdest ($dest + '\' + ([io.path]::GetFileNameWithoutExtension($file)))
      }
  }
}

[chashnniel]

thx for your help!!!
after reading your comments. now let me make my request clear:  use hotkey+click to wisely extract a small size archive file.

@curt may concern it take much more time if  Extract the archive to a temporary folder. extraxt+move file mean double time. So i revise my request: I only use this way when i want to extract a small size file. As to extract a large size archive, i do it in the normal way(check the files manually then choose the right content menu to extract it).  In briefly, we focus on small size file. so @4wd s idea is OK for me.
@KodeZwerg  ALT+Win+leftclick, i don't know whether ahk can get the files name when i click it, the point is how to know whether there is multi files in a archive. it seems you know how to do it.
@4wd thx for your hard work. but i don't know how to use it. i will google the powershell usage
sorry for my English

[chashnniel]

I find a way to solve my problem
1. extract the file in a subfolder(its name based on the archive files name of course). (no matter there is multi files in it or not)
2. check files number in it(one or multi)
3. if multi      then nothing need to do
    if one        then use this AHK script rescue orphans  which can make a file/folder move to their parent dir.

i hope it can help you guys.

[KodeZwerg]

@Scripters, why dont use List command to get archive content to compare? Just my Idea to Script stuff where i aint have any idea at all :-]
At least that way i would go if i write a batch file.

@chashnniel For Zip fileformat that is easy action to get content. But as said, i have no idea on how to get Archive filename.

There exists some multipurpose CLI dearchivers that can list content, as more archive formats needed as more my first of all zip only variant would fail :-)

[4wd]

Since the ultimate point is to extract the contents of the archive I see no need to get the list of its contents before doing so, it adds unnecessary steps.

Only needed to find out if there was more than one object in the root of the archive.
If, after extraction, there was an already existing object of the same name then you can either rename, replace, or skip (and leave the extracted files in the temporary folder for comparison with the existing), which can be handled by a requester or a preset.

Like I said, there was no error checking in my script since it was just a sample of how easy it is to do.

Plus there was the reference to TC so the ultimate environment in which the script/program would be used was unknown.

[chashnniel]

i found another solution(maybe)
this AHK script 智能解压
seems can do it.
    But it is just a plugin, the author said it can be used as a independent script if i modify it. since i don't know how to code, anyone can help?
    @KodeZwerg How about add a content menu if it is hard to get the Archive filename through a hotket+click?

[Nod5]

Hi all. Here is an AutoHotkey prototype. I don't have time to make more of it right now. But maybe someone else takes this to the next level?

Code: ( autohotkey)

;Smarter unzip sketch
;by nod5  181114

;note: only a sketch/prototype so far
;todo: 
;- add error checks/handling: 
;   1 unzip errors (paths to long, or whatever)
;   2 file/folder move errors: 
;     - script currently silently avoids overwrite
;     - need to add code to prompt user: overwrite yes/no? and react accordingly
;- must test how reliable the unzip function performs if the zip file is huge, etcetera
;- notify user while processing (window, tooltip, etcetera)
;- prevent repeat commands while processing
;- replace crude F5 refresh with something better, maybe also reselect zip file after refresh

#IfWinActive ahk_exe explorer.exe
!#Lbutton::

;get first file in Explorer selection and verify that it is .zip
clip := ClipToVar()
Loop, parse, clip, `n, `r
{
  firstfile := A_LoopField
  break
}
if !FileExist(firstfile) or (SubStr(firstfile,-3) != ".zip")
  return

;unzip to temporary folder
SplitPath, firstfile, , folder, , zipname_noext
tempfolder := folder "\temp_" A_Now
FileCreateDir, % tempfolder 
Unzip(firstfile, tempfolder)

;count unzipped files/folders recursively
Loop, Files, % tempfolder "\*.*", FDR
{
  allcount := A_Index
  onlyitem := A_LoopFilePath
}

;count unzipped files/folders at first level only
Loop, Files, % tempfolder "\*.*", FD
{
  firstlevelcount := A_Index
  firstlevelitem  := A_LoopFilePath
}

;case1: only one file/folder in whole zip
if (allcount = 1)
{
  if InStr( FileExist(onlyitem), "D")
  {
    SplitPath, onlyitem, onlyfoldername
    FileMoveDir, % onlyitem, % folder "\" onlyfoldername
  }
  else
    FileMove   , % onlyitem, % folder
}

;case2: only one folder (and no files) at the first level in zip
else if (firstlevelcount = 1) and InStr(FileExist(firstlevelitem), "D")
{
  SplitPath, firstlevelitem, firstlevelfoldername
  FileMoveDir, % firstlevelitem, % folder "\" firstlevelfoldername
}

;case3: multiple files/folders at the first level in zip
else
{
  FileMoveDir % tempfolder, % folder "\" zipname_noext
}

;cleanup temp folder
FileRemoveDir, % tempfolder, 1

;refresh Explorer to show results
If WinActive("ahk_exe Explorer.exe")
  Send {F5}
return


;function: copy selection to clipboard to var
ClipToVar() {
  cliptemp := clipboardall ;backup
  clipboard = 
  send ^c
  clipwait, 1
  clip := clipboard
  clipboard := cliptemp    ;restore
  return clip
}


;function: unzip files to already existing folder
;zip file can have subfolders
Unzip(zipfile, folder)
{
  psh := ComObjCreate("Shell.Application")
  psh.Namespace(folder).CopyHere( psh.Namespace(zipfile).items, 4|16)
}

[chashnniel]

@Nod5 thx!!! what a decent script!
i just test it, it works like a charm
a little suggestion(since it is just a prototype), it overwrites(my mistake, it just skip the same file) the files by default if it is already existed in the current folder. maybe you can add a overwrite  confirm dialog.

[Nod5]

it overwrites the files by default if it is already existed in the current folder

I don't think it does, on the contrary in my (quick) tests it silently skips to unzip/move files if another file with the same name exists in the target path. But yes, a complete program should handle such cases by asking the user what to do. However that would take more time, which I don't have for this right now. But someone else might.