Public Function IsDriveReady(ByVal sDrive As String) As Boolean
sDrive = Left(sDrive, 1) & ":\"
IsDriveReady = GetVolumeInformation(sDrive, vbNullString, _
0, 0, 0, 0, vbNullString, 0)
End Function
Muchas gracias cobein y a los demas tambien =) pero me ha servido esta ultima respuesta...
dejo la declaracion de la api..
Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Saludos!