Obtenir la liste des périphériques USB
RolandP
Messages postés
2
Date d'inscription
mercredi 7 juillet 2004
Statut
Membre
Dernière intervention
24 août 2006
-
24 août 2006 à 17:03
ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 - 12 sept. 2006 à 16:48
ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 - 12 sept. 2006 à 16:48
A voir également:
- Obtenir la liste des périphériques USB
- Liste deroulante php ✓ - Forum PHP
- Parcourir une liste java ✓ - Forum Java
- Afficher ma liste de courses - Forum Java
- Liste c# ✓ - Forum C# / .NET
- Parcourir les élément d'un jcombobox ✓ - Forum Java
3 réponses
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
24 août 2006 à 20:00
24 août 2006 à 20:00
Salut,
le moteur de recherche n'est pas en panne, regarde là !
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
le moteur de recherche n'est pas en panne, regarde là !
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
25 août 2006 à 09:56
25 août 2006 à 09:56
Bonjour,
Exemple avec fso:
Dim fso, d, dc, s, n
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d in dc
n = ""
If d.DriveType = 1 And d.IsReady Then
s = s & "DriveLetter: " & d.DriveLetter &vbCrLf& "VolumeName: " &_
d.VolumeName &vbCrLf&"Taille totale: " & FormatNumber(d.TotalSize/1024, 0) & " KOctets" &vbCrLf&_
"Espace disponible: " & d.AvailableSpace/1024 & " Koctets"
s = s & n & vbCrLf
End If
Next
MsgBox "Inventaire des disques amovibles" &vbCrLf&vbCrLf& s
Set fso = Nothing
Set dc = Nothing
jean-marc
Exemple avec fso:
Dim fso, d, dc, s, n
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d in dc
n = ""
If d.DriveType = 1 And d.IsReady Then
s = s & "DriveLetter: " & d.DriveLetter &vbCrLf& "VolumeName: " &_
d.VolumeName &vbCrLf&"Taille totale: " & FormatNumber(d.TotalSize/1024, 0) & " KOctets" &vbCrLf&_
"Espace disponible: " & d.AvailableSpace/1024 & " Koctets"
s = s & n & vbCrLf
End If
Next
MsgBox "Inventaire des disques amovibles" &vbCrLf&vbCrLf& s
Set fso = Nothing
Set dc = Nothing
jean-marc
ShareVB
Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
26
12 sept. 2006 à 16:48
12 sept. 2006 à 16:48