Tester l'existance d'un disque - partition - drive - lettre


Commenter

Contenu du snippet 

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Function DriveExists(ByVal sLetter As String) As Boolean
    Dim lRet As Long
    
'   formate  "X:\"
    sLetter = UCase$(LeftB$(Trim$(sLetter), 2))
    If sLetter Like "[A-Z]" Then
        lRet = GetDriveType(sLetter & ":\")
        DriveExists = ((lRet > 1&) And  (lRet < 7&))
    End If
End Function

Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

Du même auteur (PCPT)