'
' GetLogicalDrives
'
' Author: Joe Strazzere
'
dim a as unsigned
a=External("kernel32","GetLogicalDrives")
msgbox(str$(a))
if (a & 1 ) = 1 then
msgbox("A: Drive found")
end if
if (a & 2 ) = 2 then
msgbox("B: Drive found")
end if
if (a & 4 ) = 4 then
msgbox("C: Drive found")
end if
if (a & 8 ) = 8 then
msgbox("D: Drive found")
end if
if (a & 16 ) = 16 then
msgbox("E: Drive found")
end if
if (a & 32 ) = 32 then
msgbox("F: Drive found")
end if
if (a & 64 ) = 64 then
msgbox("G: Drive found")
end if
if (a & 128 ) = 128 then
msgbox("H: Drive found")
end if
if (a & 256 ) = 256 then
msgbox("I: Drive found")
end if
if (a & 512 ) = 512 then
msgbox("J: Drive found")
end if
if (a & 1024 ) = 1024 then
msgbox("K: Drive found")
end if
if (a & 2048 ) = 2048 then
msgbox("L: Drive found")
end if
if (a & 4096 ) = 4096 then
msgbox("M: Drive found")
end if
if (a & 8192 ) = 8192 then
msgbox("N: Drive found")
end if
if (a & 16384 ) = 16384 then
msgbox("O: Drive found")
end if
if (a & 32768 ) = 32768 then
msgbox("P: Drive found")
end if
if (a & 65536 ) = 65536 then
msgbox("Q: Drive found")
end if
if (a & 131072 ) = 131072 then
msgbox("R: Drive found")
end if
if (a & 262144 ) = 262144 then
msgbox("S: Drive found")
end if
if (a & 524288 ) = 524288 then
msgbox("T: Drive found")
end if
if (a & 1048576 ) = 1048576 then
msgbox("U: Drive found")
end if
if (a & 2097152 ) = 2097152 then
msgbox("V: Drive found")
end if
if (a & 4194304 ) = 4194304 then
msgbox("W: Drive found")
end if
if (a & 8388608 ) = 8388608 then
msgbox("X: Drive found")
end if
if (a & 16777216 ) = 16777216 then
msgbox("Y: Drive found")
end if
if (a & 33554432 ) = 33554432 then
msgbox("Y: Drive found")
end if
