Reconnaissance USB

Signaler
Messages postés
71
Date d'inscription
jeudi 20 mai 2004
Statut
Membre
Dernière intervention
4 septembre 2007
-
Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
-
Bonjour,
Mon problème est le suivant
j'ai créer un programme qui lance des logiciels portable
pour sa je fais un shell sur ma clef usb
j'attribut une lettre aux lecteurs (ici M:)
Le problème est que la lettre ne sera pas partout la même
donc comment faire pour reconaître la clef sur un pc et le dossier spécifié par la même occasion ?

Merci d'avance

CYRILUS

3 réponses

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
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
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

 
Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
16