Enumerating drives

Improvement on the above code:

For i = 0 To 23
drive$ = Chr(67+i)+":"
If FileType(drive) = 2
Print "Drive="+drive
EndIf
Next