Multi Commander > Script

Go To Link Target v2

(1/1)

pncdaspropagandas:
Hi,

As Mathias added new functions to MultiScript, I updated my script. Now it is much mor concise.

For the hardlink detection I use FindLinks from SysInternals on https://docs.microsoft.com/en-us/sysinternals/downloads/findlinks and put it on mcinstallpath\Tools\Links\Hardlinks

MultiScript:
// Junction, Symlink, MountPoint & Windows Shrtcut -> get link target with MultiComander - reliable
// Hardlink -> get link target with findlinks64.exe - communication via text file

@var $source_focus_path = GetSourceFocusPath();
@var $link_target;
@var $link_targets[];
@var $target_count;
@var $link_found;
@var $link_target_temp_file;
@var $temp_file_content;
@var $link_target_file_size;
@var $findlinks_path;
@var $aux[];
@var $aux2;
@var $n;
@var $mcinstallpath = GetTagValue("${mcinstallpath}");

//0 - Not a link (maybe a hardlink)
//1 - Junction
//2 - Symlink
//3 - MountPoint
@var $link_type = GetFSLinkType($source_focus_path);
if( $link_type == 0 )
{
   $link_target = GetWinShortcutTarget($source_focus_path);
   //LogAppInfo('shortcut to ' + $link_target);
   if( !($link_target == '') )
   {
      $link_found = 1;
      SetClipboardText($link_target);
   }
   else
   {
      // Hardlink
      $link_target_temp_file = $mcinstallpath ^ 'Tools\Links\Hardlink\link_target.txt';
      $findlinks_path = $mcinstallpath ^ 'Tools\Links\Hardlink\FindLinks.exe';
      
      if (FileExists($link_target_temp_file) == 1)
      {
         $aux = {"NOPROGRESS", "NODIALOG", "SILENT"};
         DeleteFile($link_target_temp_file, $aux);
      }
      
      LogAppInfo('C:\Windows\System32\wscript.exe "' + $mcinstallpath ^ 'Tools\run_invisible\run_invisible_bat_2_args.vbs" "' + $mcinstallpath ^ '\Tools\Links\Hardlink\bat_findlinks.bat" "' + $source_focus_path + '" "' + $link_target_temp_file + '"');
      MC.Run CMD={'C:\Windows\System32\wscript.exe'} ARG={'"' + $mcinstallpath ^ 'Tools\run_invisible\run_invisible_bat_2_args.vbs" "' + $mcinstallpath ^ '\Tools\Links\Hardlink\bat_findlinks.bat" "' + $source_focus_path + '" "' + $link_target_temp_file + '"'} STARTIN={$mcinstallpath ^ '\Tools\Links\Hardlink'} WAIT
      
      
      // Work on FindLinks' return
      if (FileExists($link_target_temp_file) == 1)
      {
         //Sleep(100);
         
         $link_target_file_size = GetFileSize($link_target_temp_file);
         if ($link_target_file_size > 0)
         {
            $temp_file_content = LoadStringFromFile($link_target_temp_file);
            //LogAppInfo($temp_file_content);
            
            // Delete temp file
            $aux = {"NOPROGRESS", "NODIALOG", "SILENT"};
            DeleteFile($link_target_temp_file, $aux);
            
            // Check/Parse link_target_temp_file content
            @var $temp_file_lines[] = StrLines2Array($temp_file_content);
            if( StrIsWildMatch($temp_file_lines[0], 'Error*') )
            {
               MessageBox('Resolve Link', 'Error logged by FindLinks.', 0);
               break;
            }
            else
            {
               $target_count = arrayCount($temp_file_lines);
               // 4 lines -> no links
               // 7 lines -> 1 link
               // 8 lines -> 2 links
               // etc
               if( $target_count >= 6 )
               {
                  $link_found = 1;
                  $link_target = $temp_file_lines[5];
                  
                  // More than 1 hardlink found
                  if( $target_count > 6 )
                  {
                     // Mount an array with all hardlinks targets, so the user can choose
                     for( $n=5; $n<$target_count; $n++ )
                     {
                        arrayAdd($link_targets, $temp_file_lines[$n]);
                     }
                     
                     // Ask user
                     @var $link_targets_answer = AskOption('Select target', $link_targets, 0);
                     if ($link_targets_answer == -1)
                     {
                        // User cancelled
                        break;
                     }
                     
                     $link_target = $link_targets[$link_targets_answer];
                  }
               }
            }
            
         }
         else
         {
            LogAppInfo('Error');
         }
   
      }
      else
      {
         MessageBox('Resolve Link', 'Operation timeout', 0);
         break;
      }
   }
}
else
{
   // Junction, Symlink or MountPoint
   $link_found = 1;
   $link_target = GetFSLinkTarget($source_focus_path);
}


// Go to target
if( $link_found )
{
   // Clear selected files in the case of the link target being on the same folder
   arrayAdd($aux, '');
   SetSourceSelected($aux, 1);
   
   SetClipboardText($link_target);
   
   // As Mathias said here http://forum.multicommander.com/forum/index.php/topic,1929.0.html
   // "the UI can't be updated until the script is finished since the script is running in the same thread"
   // So there's no way to break going to the folder, then selecting the file in 2 operations
   // We can do it in 1 go using MC.RunCmd ID="Core.1312" that is CTRL+V with the target path on the clipboard
   
   // Go To Link Target
   MC.RunCmd ID="Core.1312"
   
}
else
{
   MessageBox('Resolve Link', 'Not a link.', 0);
}


bat_findlinks.bat file:
FindLinks.exe %1 > %2

Navigation

[0] Message Index