Perl

commande GetNextAvailDrive( )

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : commande GetNextAvailDrive( )

rodolf

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

Publicité

dotfx

Code :

#!/usr/bin/perl -w
use strict;
use Win32;
my $next = Win32::GetNextAvailDrive();
my @loop = ('A'..'Z');
my $disp = '';
my @free = ();
for (@loop) {
if ($_ . ':' ne $next) {
} else {
$disp = $_;
}
}
@free = ($disp .. 'Z');
@free = sort {$b cmp $a} @free;
1;

Toutes les lettres disponibles sont dans l'array @free

FORUM HardWare.fr

Programmation

Perl

commande GetNextAvailDrive( )

Sujets relatifs
commande sur plusieurs lignes pour question de lisibilité	Aide sur la commande NET SEND
commande MSDOS	[GTK}afficher resultat dans commande dans window
Executer une commande dos sans creation de fichier	[resolu][excel] sauvegarde ligne de commande
Difference entre php ligne de commande et dans navigateur ??	Commande préproc et inclusion
PHP/Postgresql fonctionne qu'en ligne de commande et pas via http	VBS Commande externe
Plus de sujets relatifs à : commande GetNextAvailDrive( )

Page générée en 0.040 secondes