Reconnaissance USB
Signaler
cs_CYRILUS92
ShareVB
- Messages postés
- 71
- Date d'inscription
- jeudi 20 mai 2004
- Statut
- Membre
- Dernière intervention
- 4 septembre 2007
ShareVB
- Messages postés
- 2676
- Date d'inscription
- vendredi 28 juin 2002
- Statut
- Membre
- Dernière intervention
- 13 janvier 2016
3 réponses
bricoyeye
- Messages postés
- 326
- Date d'inscription
- vendredi 15 avril 2005
- Statut
- Membre
- Dernière intervention
- 29 avril 2008
Salut,
Public Function GetLettre(devL_id As Long) As String
Dim drives As Long
On Error Resume Next
drives = 1
For i = 0 To 25
If drives = devL_id Then
GetLettre = Chr(i + 65)
Exit Function
End If
drives = drives * 2
Next i
End Function
Private Sub SysInfo1_DeviceArrival(ByVal devicetype As Long, ByVal deviceid As Long, ByVal devicename As String, ByVal devicedata As Long)
Public lettre As String
On Error Resume Next
lettre = GetLettre(deviceid) & ":"
Sans oublier de mettre Microsoft SysInfo Control
Public Function GetLettre(devL_id As Long) As String
Dim drives As Long
On Error Resume Next
drives = 1
For i = 0 To 25
If drives = devL_id Then
GetLettre = Chr(i + 65)
Exit Function
End If
drives = drives * 2
Next i
End Function
Private Sub SysInfo1_DeviceArrival(ByVal devicetype As Long, ByVal deviceid As Long, ByVal devicename As String, ByVal devicedata As Long)
Public lettre As String
On Error Resume Next
lettre = GetLettre(deviceid) & ":"
Sans oublier de mettre Microsoft SysInfo Control
cs_Exploreur
- Messages postés
- 4822
- Date d'inscription
- lundi 11 novembre 2002
- Statut
- Membre
- Dernière intervention
- 15 novembre 2016
Salut,
Regarde aussi du côté des snippets, il me semble que Renfield en a fait un...
A+
Exploreur
Linux a un noyau, Windows un pépin
Regarde aussi du côté des snippets, il me semble que Renfield en a fait un...
A+
Exploreur
Linux a un noyau, Windows un pépin
