~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes. ~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Fonction : GetCDROMList Private Declare Function GetDriveType Lib "kernel32" _ Alias "GetDriveTypeA" (ByVal nDrive As String) As Long ' Déclarations de constantes Private Const DRIVE_CDROM = 5 Private Const DRIVE_FIXED = 3 Private Const DRIVE_RAMDISK = 6 Private Const DRIVE_REMOTE = 4 Private Const DRIVE_REMOVABLE = 2 Public Function GetCDROMList() ' Cette fonction retourne sous forme de tableau la liste ' des lecteurs CD-ROM du système. Dim lgFor As Long Dim stTmp As String stTmp = vbNullString ' Boucle sur toutes les lettres de A à Z For lgFor = 65 To 90 ' Récupère le type du lecteur courant (s'il existe) If GetDriveType(Chr$(lgFor) & ":\") = DRIVE_CDROM Then stTmp = stTmp & Chr$(lgFor) & ":\" & vbCrLf End If Next lgFor ' Construit et retourne le tableau GetCDROMList = Split(stTmp, vbCrLf) End Function |