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] )