LISTER LES DISQUES (CD, HD, FD, RAMDISK ETC...)
seth79
-
13 nov. 2001 à 13:05
wallon14 Messages postés 56 Date d'inscription vendredi 17 octobre 2003 Statut Membre Dernière intervention 3 juillet 2005 - 18 janv. 2006 à 15:59
wallon14 Messages postés 56 Date d'inscription vendredi 17 octobre 2003 Statut Membre Dernière intervention 3 juillet 2005 - 18 janv. 2006 à 15:59
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/844-lister-les-disques-cd-hd-fd-ramdisk-etc
https://codes-sources.commentcamarche.net/source/844-lister-les-disques-cd-hd-fd-ramdisk-etc
18 janv. 2006 à 15:59
9 juin 2002 à 07:38
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Const DRIVE_CDROM = 5
Const DRIVE_FIXED = 3
Const DRIVE_RAMDISK = 6
Const DRIVE_REMOTE = 4
Const DRIVE_REMOVABLE = 2
Const DRIVE_UNKNOW = 0
Const NO_DRIVE = 1
Private 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
Le sub:
Dim Lecteur As String
Dim i As Integer
For i = 0 To 25
Lecteur = Chr$(i + 65) & ":"
R = GetDriveType(Lecteur)
If R <> NO_DRIVE Then
If R 5 Then R "CDROM"
If R 3 Then R "Disque Dur"
If R 6 Then R "Disque Ram"
If R 4 Then R "Lecteur Réseau"
If R 2 Then R "Disque Amovible"
Set NodX = Tvw.Nodes.Add("disk", tvwChild, "", Lecteur & " : " & R)
End If
Next i
19 mai 2002 à 15:15
4 mars 2002 à 09:53
13 nov. 2001 à 13:05
:o)