Button to move files in folder named from file

GoinPostal · November 19, 2009, 5:13pm

just a little change, the button couldn't work in the case folders are broswed automatically after creation.

READAUTO=no is added when creating the folder.

<?xml version="1.0"?>
<button backcol="none" display="both" separate="yes" textcol="none" type="three_button">
   <label>Déplacement Rapide</label>
   <icon1>#opentoolbar</icon1>
   <button display="both">
      <label>Déplacer dans un dossier auto</label>
      <tip>Déplacer dans un dossier du nom du fichier</tip>
      <icon1>#makedir</icon1>
      <function type="normal">
         <instruction>@nofilenamequoting </instruction>
         <instruction>@runonce @set Folder={file|noext}</instruction>
         <instruction>@runonce CREATEFOLDER READAUTO=no &quot;{file|noext}&quot;</instruction>
         <instruction>Copy MOVE TO &quot;.\{$Folder}&quot;</instruction>
         <instruction>@keydown:shift </instruction>
         <instruction>Rename {$Folder}</instruction>
      </function>
   </button>
   <button backcol="none" display="both" textcol="none">
      <label>Déplacer dans le dossier parent</label>
      <tip>Déplacer les fichiers dans le dossier parent et supprimer le dossier counant</tip>
      <icon1>#opentoolbar</icon1>
      <function type="batch">
         <instruction>@set ChildPath={sourcepath$|noterm}</instruction>
         <instruction>@runmode hide</instruction>
         <instruction>Copy MOVE * TO ..</instruction>
         <instruction>Go ..</instruction>
         <instruction>rmdir {$ChildPath}</instruction>
      </function>
   </button>
</button>