This is a good question.
See how this works for you:
Code:
driveGet, optDrvs, list, cdRom
stringSplit, optDrv, optDrvs
driveInfo:=""
loop % optDrv0 {
driveGet, drStat, status, % optDrv%a_index% ":"
driveGet, drType, fs, % optDrv%a_index% ":"
driveInfo .= ( ( drStat = "NotReady" || drType = "UDF" )
? "No optical media in drive " optDrv%a_index% ":"
: ( drStat = "Unknown" || drType = "UDF" )
? "Unformatted DVD found in drive "
. optDrv%a_index% ":" : ) "`n"
}
msgbox % driveInfo
The outcome may be inconclusive in certain drive configs.
It seems to work for me on a system with 2 DVD drives,
one empty and the other with a blank DVD.
Let me know what you get.
*edit
This might work a bit better:
Code:
driveGet, optDrvs, list, cdRom
stringSplit, optDrv, optDrvs
driveInfo:=""
loop % optDrv0 {
driveGet, drStat, status, % curDrv := optDrv%a_index% ":"
driveGet, drType, fs, % curDrv
driveInfo .= ( ( drStat = "NotReady" && drType = "UDF" )
? "No optical media in drive " curDrv
: ( drStat = "Unknown" && drType = "UDF" )
? "Unformatted DVD found in drive " curDrv
: ( drStat = "Ready" && drType = "UDF" )
? "Formatted DVD found in drive " curDrv : ) "`n"
}
if ( driveInfo )
msgbox % driveInfo
Added the ability to find a formatted DVD.
hth
Login
Register
FAQ
Search
