COMO SABER SE UMA LETRA DE UM DRIVE EH UM HD

USUARIO.EXCLUIDOS 29/09/2004 08:27:34
#43843 Resposta escolhida

Tem essa API:

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long


Private Sub Form_Load()
retval = GetDriveType("C:\")
Select Case retval
Case 0: drivetype = "INDETERMINADO"
Case 1: drivetype = "SEM RAIZ"
Case 2: drivetype = "REMOVàVEL"
Case 3: drivetype = "FIXO"
Case 4: drivetype = "REMOTO"
Case 5: drivetype = "CD ROM"
Case 6: drivetype = "RAMDISK"
End Select
MsgBox drivetype
End Sub

Experimente também trocar para A:\, D:\ etc.