XYplorer Beta Club

Merelin wrote:Is there a way to turn a file shortcut into a copy of the related file?

Stefan wrote:Hi Melvin, welcome.

Merelin wrote:Is there a way to turn a file shortcut into a copy of the related file?

Only step-by-step per file:
Right-click a LNK file, then use submenu Shortcut Target and there "Copy Shortcut Target Item"

Unfortunately i can't find an command ID for this command to use this with an script.


And an try to use readfile() to get the target link from the LNK fails because readfile() stops at first found 0

serendipity wrote:Property "LinkTarget":

////Start at top:
sel 1;

   while(1){
      ////Loop through all items:
      if ("<curitem>"==""){break;}
          
      ////If current file has *.LNK extension:
      if ( recase("<curext>", "lower") == "lnk" ){

            ////If target file not already exists in current folder:
            $TargetFile = gettoken(property("LinkTarget", <curitem>), -1, "\");
            if (exists( "<curpath>\$TargetFile") != 1 ){

                 ////copy target file to current folder:
                 copyto "<curpath>", property("LinkTarget", <curitem>);
                  
            }
             
                   
            ////Delete *.lnk file:   
            //delete [recycle=1], [confirm], [itemlist]
            //delete 1, 1, "<curitem>";
                          
      } 
      sel "+1";
   }

Stefan wrote:

serendipity wrote:Property "LinkTarget":

There is a property LinkTarget ? Great find


Then it is possible indeed:

copyto "<curpath>", property("LinkTarget", <curitem>);


Script to walk through all files in current folder and copy the target
from all found *.lnk files to the current folder, if it not already exists:

Code: Select all

////Start at top:
sel 1;

 while(1){
    ////Loop through all items:
    if ("<curitem>"==""){break;}
          
    ////If current file has *.LNK extension:
    if ( recase("<curext>", "lower") == "lnk" ){

          ////If target file not already exists in current folder:
          $TargetFile = gettoken(property("LinkTarget", <curitem>), -1, "\");
          if (exists( "<curpath>\$TargetFile") != 1 ){

               ////copy target file to current folder:
               copyto "<curpath>", property("LinkTarget", <curitem>);
                  
          }
             
                   
          ////Delete *.lnk file:   
          //delete [recycle=1], [confirm], [itemlist]
          //delete 1, 1, "<curitem>";
                          
    } 
    sel "+1";
 }

Thanks serendipity!

eil wrote:to not make a different topic, can someone please modify this script so that it doesn't copy targeted files, but show a list of all real pathes via "text"?
i thought that at least this i'll be able to do, but seems i'm still too bad at xy scripting.

 sel 1;

 $LinkList = "";
 while(1){
    ////Loop through all items:
    if ("<curitem>"==""){break;}
          
    ////If current file has *.LNK extension:
    if ( recase("<curext>", "lower") == "lnk" ){

          ////If target file not already exists in current folder:
          $TargetFile = property("LinkTarget", <curitem>);
          if (exists( "<curpath>\$TargetFile") != 1 ){

               ////copy target file to current folder:
               // copyto "<curpath>", property("LinkTarget", <curitem>);
			   $LinkList = $LinkList . $TargetFile . <crlf>; 
                  
          }
             
          ////Delete *.lnk file:   
          //delete [recycle=1], [confirm], [itemlist]
          //delete 1, 1, "<curitem>";
                          
    } 
    sel "+1";
 }
 if($LinkList != "") {
	text $LinkList;
 }

eil wrote:can't say 'cause i don't see the result of script's work, but this:

script.png

what am i doing wrong?

please be sure to have at least two blanks in front of each line, because the forum eats always one

highend wrote:Regarding your script:
Öh, if(""==""){break;}... The if condition will always be true, so your break; will always terminate the loop.

Stefan wrote:Please be sure to have all lines indented at least by one blank at the start of the line.
If you copy the above script that is not given and you get the result you mentioned.

See Common questions, mistakes and pitfalls - Indent your code!

For those who post scripts (me included ):
please be sure to have at least two blanks in front of each line, because the forum eats always one.
I usually use even three or four.