Connaitre le type d'un lecteur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 34 799 fois - Téléchargée 7 fois

Contenu du snippet

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

Private Enum DRIVE_TYPE
  UNKNOWN = 0
  DRIVE_NO_ROOT_DIR = 1
  REMOVABLE = 2
  FIXED = 3
  REMOTE = 4
  CDROM = 5
  RAMDISK = 6
End Enum

Private Function GetDriveType(ByVal DriveLetter As String) As DRIVE_TYPE
  DriveLetter = VBA.Trim$(DriveLetter)
  If Not DriveLetter = vbNullString Then
    DriveLetter = VBA.StrConv(VBA.Left$(DriveLetter, 1), vbUpperCase)
    If DriveLetter Like "[A-Z]" Then GetDriveType = GetDriveTypeA(DriveLetter & ":\")
  Else
    GetDriveType = UNKNOWN
  End If
End Function

Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.