[R] Trouver lettre CD

[eln]

Je pense pouvoir clôturer ce sujet avec l'aide de tous :

Code : Tout sélectionner

$drvs = DriveGetDrive ( " CDROM " ) 
If Not @error Then $i = $drvs[0] 
If @error Then 
MsgBox ( 0 , " " , " Une erreur est survenue " ) 
Exit 
EndIf 
While 1 
If $i = 0 Then MsgBox ( 0 , " Office 2003 " , " Veuillez insérer le CD d'Office 2003 " ) 
if $i < = 0 Then $i = $drvs[0] 
if DriveStatus ( $drvs[$i] ) = " Ready " And FileExists ( $drvs[$i] & " \setuppro.exe " ) Then ExitLoop 
$i = $i - 1 
Sleep ( 100 ) 
WEnd 
MsgBox ( 4096 , " " , " Lettre CD - Rom Office : " & $drvs[$i] )

[sylvanie]

Non non, c'est une sortie classique. on peut même l'enrichir par Exit 1 dans le cas de l'erreur, et mettre en fin de script un exit 0 pour signaler une fin d'execution correcte, du coups ça fait un code retours au cas hypothétique où ce script serait lancé un jour par un autre script.

et n peut aussi mettre MsgBox ( 16 , "Erreur" , "Une erreur est survenue " ) à la place de 0 pour avoir la bonne vieille croix rouge du désespoire (note tragique ^^)

[SurPriseS]

non non c'est pas bien l'espèce de truc qui ressemble a du code ou c'est parce que c'est pas si radicale que sa ??
Pour le 0->16 enfaite j'ai juste copier le code de la msgbox au dessus

[sylvanie]

le non non" était bien dans le sens où ce c'est pas si radical que ça.