Enumerating drives

Ok i came up with this, it's not pretty but works great.

For i = 0 To 23
If ChangeDir(Chr(67+i)+":\") = True
Print "CurrentDir()="+CurrentDir()
EndIf
Next