December 1, 2005 - WinTask - GetLogicalDrives

'
' GetLogicalDrives
'

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