Usb
Résolu
CYBOR2000
Messages postés
31
Date d'inscription
samedi 19 février 2005
Statut
Membre
Dernière intervention
9 mars 2007
-
24 sept. 2005 à 18:55
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 22 juin 2006 à 12:29
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 22 juin 2006 à 12:29
4 réponses
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
22 juin 2006 à 12:29
22 juin 2006 à 12:29
pense à valider ;)
++
++
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
24 sept. 2005 à 19:15
24 sept. 2005 à 19:15
salut,
tiens, pluas qu'à changer la lettre.
ce qui t'intéresse, c'est le dernier retour
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
'
'
'
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim Serial As Long, VName As String, FSName As String
'Create buffers
VName = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))
'Get the volume information
GetVolumeInformation " C:\ ", VName, 255, Serial, 0, 0, FSName, 255
'Strip the extra chr$(0)'s
VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
MsgBox "The Volume name of C:\ is '" & VName & _
"', the File system name of C:\ is '" & FSName & _
"' and the serial number of C:\ is '" & Trim(Str$(Serial)) & "'"
End Sub
<SMALL> Coloration syntaxique automatique [AFCK]</SMALL>
PCPT
tiens, pluas qu'à changer la lettre.
ce qui t'intéresse, c'est le dernier retour
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
'
'
'
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim Serial As Long, VName As String, FSName As String
'Create buffers
VName = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))
'Get the volume information
GetVolumeInformation " C:\ ", VName, 255, Serial, 0, 0, FSName, 255
'Strip the extra chr$(0)'s
VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
MsgBox "The Volume name of C:\ is '" & VName & _
"', the File system name of C:\ is '" & FSName & _
"' and the serial number of C:\ is '" & Trim(Str$(Serial)) & "'"
End Sub
<SMALL> Coloration syntaxique automatique [AFCK]</SMALL>
PCPT
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
24 sept. 2005 à 19:20
24 sept. 2005 à 19:20
C'est la meme chose que pour un disque dur !
il y a plusieurs méthodes en voici une simple avec fso
à la place de z: tu met la lettre de ta clé usb !
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox Abs(fso.GetDrive("z:").SerialNumber)
<HR>
Si la réponse te conviens merci de l'accepter
il y a plusieurs méthodes en voici une simple avec fso
à la place de z: tu met la lettre de ta clé usb !
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox Abs(fso.GetDrive("z:").SerialNumber)
<HR>
Si la réponse te conviens merci de l'accepter
CYBOR2000
Messages postés
31
Date d'inscription
samedi 19 février 2005
Statut
Membre
Dernière intervention
9 mars 2007
22 juin 2006 à 12:21
22 juin 2006 à 12:21
Merci à vous 2, c' est exactement ce qu' il fallait.
@+
@+
