Zip the file and ask for password in a single shortcut key?

[shamsudeen]

Hi folks, how are you doing. ?

I need to make a repetitive task, that is, drag and drop a file into the WinRAR application and click Create Password, then type the password for that file. This is my repetitive task.

Is there a way to make a single shortcut key? When I press the shortcut key, it should zip and wait for me to enter my password. ?

Thank you, guys

[highend]

Ofc this is not possible, XY doesn't support drag'n drop automation

You are free though to use input() and the winrar command line to do the same without a gui...

[shamsudeen]

thank for your reply.

but i am not going to drag and drop on xyplorer.

currently i am working like Opened winrar application in my left side screen , and on my right side screen i keep my windows xplorer, i drag and drop a pdf file to winrar, the Winrar automatically pop up for zip and i click to set password. this is what i am doing now.

but i want to make this easy in my xyplorer, click on that folder or file, and press the short cut key to zip and ask for password for the zip file. is this possible to make it. thanks

[highend]

Read the second part of my first post again

[shamsudeen]

hi,
i dont understand this, i am not familiar with script or something. can you explain me please?

You are free though to use input() and the winrar command line to do the same without a gui...

can you explain me please?

[highend]

Code: Select all

    $dst = "E:\file done";
    $rar = "C:\Program Files\WinRAR\WinRar.exe";

    end (exists($rar) != 1), quote($rar) . <crlf 2> . "does not exist, aborted!";
    end (!<curitem>), "No item selected, aborted!";

    $drv = gettoken($dst, 1, ":") . ":\";
    end (exists($drv) != 2), "Drive " . quote($drv) . <crlf 2> . "does not exist, aborted!";
    if (exists($dst) != 2) { new($dst, "dir"); }

    $base = gpc(<curitem>, "base");
    $pass = input("Input encryption pw");
    $opts = ($pass != "") ? "a -afzip -ep1 -p" . quote($pass) : "a -afzip -ep1";

    run lax("$rar" $opts "$dst\$base" "<curitem>"), "%TEMP%";

[shamsudeen]

Thank for the Script, but this is not working as expected. when i run the script it is asking for the password, after entering the password
the file created in e drive, but its removed the original file extension, and not a zip file, please check and help..

[highend]

Code: Select all

run lax("$rar" $opts "$dst\$base.zip" "<curitem>"), "%TEMP%";

Replace the original line

[shamsudeen]

hi, bro thank you very much, its working as a charm.
sorry for the delayed reply. i got outside of our office.
Thank you

[shamsudeen]

Hi brother, how to make this script to set a default single password and zip the file automatically?

Thank you

$dst = "E:\file done";
$rar = "C:\Program Files\WinRAR\WinRar.exe";

end (exists($rar) != 1), quote($rar) . <crlf 2> . "does not exist, aborted!";
end (!<curitem>), "No item selected, aborted!";

$drv = gettoken($dst, 1, ":") . ":\";
end (exists($drv) != 2), "Drive " . quote($drv) . <crlf 2> . "does not exist, aborted!";
if (exists($dst) != 2) { new($dst, "dir"); }

$base = gpc(<curitem>, "base");
$pass = input("Input encryption pw");
$opts = ($pass != "") ? "a -afzip -ep1 -p" . quote($pass) : "a -afzip -ep1";

run lax("$rar" $opts "$dst\$base.zip" "<curitem>"), "%TEMP%";

[jupe]

Code: Select all

  $pass = "PASSWORD";
  $dst  = "E:\file done";
  $rar  = "C:\Program Files\WinRAR\WinRAR.exe";

  end (exists($rar) != 1), quote($rar) . <crlf 2> . "does not exist, aborted!";
  end (!<curitem>), "No item selected, aborted!";
  
  $drv = gpc($dst, "drive") . ":\";
  end (exists($drv) != 2), "Drive " . quote($drv) . <crlf 2> . "does not exist, aborted!";
  if  (exists($dst) != 2) { new($dst, "dir"); }

  run lax("$rar" a -afzip -ep1 -p"$pass" "$dst\<curbase>.zip" "<curitem>"), "%TEMP%";

[shamsudeen]

Thank you Jupe. it works well

Thanks for the community.

[shamsudeen]

Code: Select all

  $pass = "PASSWORD";
  $dst  = "E:\file done";
  $rar  = "C:\Program Files\WinRAR\WinRAR.exe";

  end (exists($rar) != 1), quote($rar) . <crlf 2> . "does not exist, aborted!";
  end (!<curitem>), "No item selected, aborted!";
  
  $drv = gpc($dst, "drive") . ":\";
  end (exists($drv) != 2), "Drive " . quote($drv) . <crlf 2> . "does not exist, aborted!";
  if  (exists($dst) != 2) { new($dst, "dir"); }

  run lax("$rar" a -afzip -ep1 -p"$pass" "$dst\<curbase>.zip" "<curitem>"), "%TEMP%";

@jupe
@highend
hi, how to add many files at once and run this script to zip and passoword the files seperately at once. Thank you

[highend]

By looping over them?

Code: Select all

    $pass = "PASSWORD";
    $dst  = "E:\file done";
    $rar  = "C:\Program Files\WinRAR\WinRAR.exe";

    end (exists($rar) != 1), quote($rar) . <crlf 2> . "does not exist, aborted!";
    $items = <get SelectedItemsPathNames>;
    end (!$items), "No item(s) selected, aborted!";

    $drv = gpc($dst, "drive") . ":\";
    end (exists($drv) != 2), "Drive " . quote($drv) . <crlf 2> . "does not exist, aborted!";
    if  (exists($dst) != 2) { new($dst, "dir"); }

    foreach($item, $items, <crlf>, "e") {
        $base = gpc($item, "base");
        run lax("$rar" a -afzip -ep1 -p"$pass" "$dst\$base.zip" "$item"), "%TEMP%";
    }

[shamsudeen]

By looping over them?

Code: Select all

    $pass = "PASSWORD";
    $dst  = "E:\file done";
    $rar  = "C:\Program Files\WinRAR\WinRAR.exe";

    end (exists($rar) != 1), quote($rar) . <crlf 2> . "does not exist, aborted!";
    $items = <get SelectedItemsPathNames>;
    end (!$items), "No item(s) selected, aborted!";

    $drv = gpc($dst, "drive") . ":\";
    end (exists($drv) != 2), "Drive " . quote($drv) . <crlf 2> . "does not exist, aborted!";
    if  (exists($dst) != 2) { new($dst, "dir"); }

    foreach($item, $items, <crlf>, "e") {
        $base = gpc($item, "base");
        run lax("$rar" a -afzip -ep1 -p"$pass" "$dst\$base.zip" "$item"), "%TEMP%";
    }

Thank you