$var = DriveGetDrive( "REMOVABLE" )
Dim $DriveNumber[2]
$i = 1
If NOT @error Then
For $i = 1 to $var[0]
$state = DriveStatus($var[$i])
If $state = "READY" Then
$DriveNumber[$i] = Asc($var[$i]) - 96
$i += 1
ReDim $DriveNumber[$i]
EndIf
Next
$DriveNumber[0] = $i
$var = 0
EndIf
For $i = 1 To $i
MsgBox(0,"阁下的U盘:",$DriveNumber[$i])
Next