XYplorer Beta Club

Code: Select all

"Remove Drive : removedrive"
   // RemoveDrive: http://www.uwe-sieber.de/drivetools_e.html
   // Set this path accordingly
   $removeDrivePath = "C:\Program Files\Utils\RemoveDrive\x64\RemoveDrive.exe";

   // Check if Control Clicked
   $shift = <get shift>;
   if ($shift == 2) {
     $startDrives = get("drives");
   }
   else {
     // Get list of removable drives
     $startDrives = get("drives", 2);
   }
   
   end $startDrives == "", "No drives to eject.";
   
   // Get drive names for each drive
   $driveNames = "";
   foreach($driveLetter,$startDrives) {
     $driveName = get("drivename", $driveLetter, 1);
     if ($driveNames == "") {
       $driveNames = $driveName;    // first one
     }
     else {
   	   $driveNames = $driveNames . "|" . $driveName;
   	 }
   }   
   
   $selectedIndex = inputselect("Select the drive to eject:", $driveNames, , 160,,,,"Eject Media");

   $selectedDrive = gettoken($startDrives,$selectedIndex,"|");
   $selectedName = gettoken($driveNames,$selectedIndex,"|");
      
   // Close tabs that use that drive   
   
   $tabCount = tab("get", "c"); // Only for the active pane
   while (true) {
      $tab = tab("get", "path", $tabCount);
      if (substr($tab, 0, 3) == $selectedDrive) {
         tab("close", 0, $tabCount);
      }
      $tabCount--;
      if ($tabCount == 0) { break; }
   }
   status "Ejecting $selectedName";
   run """$removeDrivePath"" $selectedDrive", , 2, 0;

   // allow some time to finish then check if drive is gone
   wait 1000;
   
   $endDrives = get("drives", 2);
   if ($startDrives == $endDrives) {
     status "Failed to eject $selectedDrive" , "" ,"alert";
     msg("Drive may not have been removed.<br>Removable drives still detected: ""$endDrives""");
   }
   else {
     status "Eject Success. ($selectedDrive)"
   }