Page 2 sur 2
Posté : sam. 08 sept. 2007 20:04
par 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] )
Posté : sam. 08 sept. 2007 20:14
par 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 ^^)
Posté : sam. 08 sept. 2007 20:20
par 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
Posté : sam. 08 sept. 2007 20:45
par sylvanie
le non non" était bien dans le sens où ce c'est pas si radical que ça.