number of units

[irk]

how can i know the number of units in a computer ( e.g. c:\,g:\, ecc)
using ONLY the api?

[Vlatko]

Dim LDs As Long, Cnt As Long, sDrives As String
'get the available drives
LDs = GetLogicalDrives
sDrives = "Available drives:"
For Cnt = 0 To 25
If (LDs And 2 ^ Cnt) <> 0 Then
sDrives = sDrives + " " + Chr$(65 + Cnt)
End If
Next Cnt
form1.caption = sDrives

[Vlatko]

You will also need this

Declare Function GetLogicalDrives Lib "kernel32" Alias "GetLogicalDrives" () As Long