DriveGetType seemingly not working.

[Vadtec]

I am trying to use DriveGetType to find all the removeable storage devices attach to any given computer. I am using the following code:

Func GetDrives()
; Fill the destination list
Local $drives = DriveGetDrive("ALL")
If @error == 1 Then
  MsgBox(0, "Error", "No removeable media found, cannot continue!" & @CRLF & "Please insert a micro SD card or other removeable media to copy to.", 15)
  ;GUISetState(@SW_SHOW, $mainwindow)
  GUISetState(@SW_HIDE, $cabswindow)
Else
  For $i = 1 To $drives[0]
   Local $drive = $i
   Local $type = DriveGetType($i & "\")
   If @error == 1 Then
    $type = "Error getting drive type"
   EndIf
   ConsoleWrite($drives[$i] & "\ " & $type & @CRLF)
  Next
EndIf
EndFunc   ;==>GetDrives

When I run that bit of code, I see the following in the console window:

c:\ Error getting drive type
e:\ Error getting drive type
g:\ Error getting drive type
h:\ Error getting drive type
q:\ Error getting drive type
t:\ Error getting drive type

Is DriveGetType not able to get the device type from a root directory (IE: C:\) only, or does it require a full path to find the root device?

I would think the above would work just fine, but alas, it does not seem to. Any help is greatly appreciated.

- Vadtec

[DicatoroftheUSA]

Local $type = DriveGetType($i & "")

$I is an integer, that is probably your problem. Use $drives[$i] instead ie Local $type = DriveGetType($drives[$i] & "") Edited February 6, 2012 by DicatoroftheUSA

[Vadtec]

$I is an integer, that is probably your problem.

Well don't I feel silly. This is what happens when I try to work on 1-2 hrs of sleep in the last 72 hrs. Go figure. Thanks for the kick in the head!

- Vadtec

[BrewManNH]

I see a couple of other potential errors with the script.

This piece:

If @error == 1 Then
  MsgBox(0, "Error", "No removeable media found, cannot continue!" & @CRLF & "Please insert a micro SD card or other removeable media to copy to.", 15)

Considering you're looking for all drive types, your error message in the MsgBox doesn't make much sense. Second, you're using "==" which is a case sensitive comparison, on a number, you should be using "=" instead for numeric comparisons. Using "==" will work in this instance, but if you're not careful it can bite you in the butt later.

[DicatoroftheUSA]

LOL, I am sure most of us have made that mistake before.

Because of that I pass strings through a variable ie.

$sDrive=$aDrive[$i]&''

DriveGetType($sdrive)

consolewrite($sdrive)

I think it simplifies troubleshooting, especially if I have beer and donuts for breakfast (just kidding)

Edited February 6, 2012 by DicatoroftheUSA