commande GetNextAvailDrive( )

commande GetNextAvailDrive( ) - Perl - Programmation

Marsh Posté le 23-08-2005 à 11:40:20    

Bonjour,
 
Existe t-il une commande équivalente qui permet de faire l'inverse ?
A savoir une commande de type GetLastAvailDrive( ) qui permettrait de récupérer les lettres de lecteurs libres depuis la fin (z y ...).
 
En effet, avec Windows XP, la gestion des périphériques de stockage usb pose probleme car le système semble faire abstraction des lecteurs réseaux ?!
En gros, si vous avez deux partitions (c et d) et un lecteur réseau (sur e) alors, si l'on insert une clé usb, cette dernière est alors inaccessible car le systeme essaie de la monter sur le lecteur e ...
 
Merci de votre aide ;)
 
RM

Reply

Marsh Posté le 23-08-2005 à 11:40:20   

Reply

Marsh Posté le 26-08-2005 à 18:55:31    

Code :
  1. #!/usr/bin/perl -w
  3. use strict;
  4. use Win32;
  6. my $next = Win32::GetNextAvailDrive();
  7. my @loop = ('A'..'Z');
  8. my $disp = '';
  9. my @free = ();
  11. for (@loop) {
  12.   if ($_ . ':' ne $next) {
  13.   } else {
  14.     $disp = $_;
  15.   }
  16. }
  18. @free = ($disp .. 'Z');
  19. @free = sort {$b cmp $a} @free;
  21. 1;


 
Toutes les lettres disponibles sont dans l'array @free

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed