Discussion :

[infosam76]

Bonjour

Je dois lister et pouvoir accéder au contenu de disque durs, clés et appareil photo connectés en USB. Sous XP pas de soucis mais sous Win7, les appareils photos ne sont plus reconnus comme des disques de masses mais comme des ... appareils photos ;-)

Du coup mon ancienne routine WMI ne fonctionne plus.

J'ai fais ce morceau de code tout à l'heure : Je vois bien mon appareil photo ainsi que tout ce qui est USB (cela va du contrôleur à la souris) , mais je ne vois pas comment faire pour les distinguer et n'afficher que mes storages

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colDevices = objWMIService.ExecQuery _
   ("Select * From Win32_USBControllerDevice")
 
For Each objDevice In colDevices
   strDeviceName = objDevice.Dependent
   strQuotes = Chr(34)
   strDeviceName = Replace(strDeviceName, strQuotes, "")
   arrDeviceNames = Split(strDeviceName, "=")
   strDeviceName = arrDeviceNames(1)
   Set colUSBDevices = objWMIService.ExecQuery _
       ("Select * From Win32_PnPEntity Where DeviceID = '" & strDeviceName & "'")
   For Each objUSBDevice In colUSBDevices
 
   If InStr(1, UCase(objUSBDevice.Description), "CANON") > 0 Then
    Call List1.AddItem(objUSBDevice.Description)
   End If
 
 
'       WScript.Echo objUSBDevice.Description
'       WScript.Echo objUSBDevice.PnPDeviceID ' Changed from Description to PnPDeviceID
                                 'as this script can be altered to return any property
                                 'of the Win32_USBControllerDevice collection.
   Next
Next

Si vous aviez une idée

[l_autodidacte]

As-tu essayé avec ce type de code ?

[ProgElecT]

Salut

Ou encore ici Comment lister l'ensemble des unités de disques d'un PC ? avec en complément Comment obtenir des informations sur les unités de disques ?

[infosam76]

J'ai déjà regardé dans cette direction, mais l'appareil n'est plus reconnu comme un lecteur mtn ...

[infosam76]

J'ai trouvé pour afficher la description de l'appareil dans une combo :



avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
  Dim strDeviceName As String
  Dim strQuotes As String
  Dim arrDeviceNames() As String
  Dim objWMIService As Object
  Dim colDevices As Object
  Dim objDevice As Object
  Dim colUSBDevices As Object
  Dim objUSBDevice As Object
 
  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  Set colDevices = objWMIService.ExecQuery("Select * From Win32_USBControllerDevice")
 
  For Each objDevice In colDevices
    strDeviceName = objDevice.Dependent
    strQuotes = Chr(34)
    strDeviceName = Replace(strDeviceName, strQuotes, "")
    arrDeviceNames = Split(strDeviceName, "=")
    strDeviceName = arrDeviceNames(1)
 
    Set colUSBDevices = objWMIService.ExecQuery("Select * From Win32_PnPEntity Where DeviceID = '" & strDeviceName & "'")
 
    For Each objUSBDevice In colUSBDevices
      If Not InStr(1, UCase(objUSBDevice.Description), "USB") > 0 And Not InStr(1, UCase(objUSBDevice.Description), "HID") > 0 And Not InStr(1, UCase(objUSBDevice.Description), "PIH") > 0 Then
        If sListLetter <> "" Then
          sListLetter = sListLetter + ","
        End If
 
        If InStr(1, UCase(objUSBDevice.Description), "CANON") Then
          sListLetter = sListLetter + objUSBDevice.Description
        End If
 
      End If
    Next
  Next

Par contre je n'arrive pas à ouvrir l'arborescence des fichiers se trouvant sur la carte à partir de mon code (j'ai essayé avec Scripting.FileSystemObject mais cela me semble logique qu'il ne sache pas lire l'info).

Dans l'explorateur Windows cela marche avec le path suivant : "Ordinateur\Canon EOS 5D Mark III"

Pour l'exemple voici une capture écran de mon explorateur windows :

[infosam76]

Je réponds un peu tard mais cela peut servir :

Sur les appareils photos récents, il existe dans la configuration un paramètre pour qu'ils soient reconnu comme un périphérique de masse lors d'une connexion via USB. Ce paramètre correctement initialisé débloque le problème.

[DarkVader]

Bonjour,

Il y a aussi une solution avec la librairie vb6i qui a l'avantage de ne pas avoir à se trainer le boulet WMI qui est lent (comme le FileSystemObject).
En plus c'est instantané. Ex.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
    Dim x As Long, ret() As DRIVE_INFOS
 
    Me.AutoRedraw=True
    For x = 1 To EnumDrives(ret())
        With ret(x)
            Me.Print x, .deviceNumber, .deviceType, .deviceDisks    ' DevideDisks énumère les lecteurs du disque concerné
        End With
    Next
End Sub

Bonjour

J'ai moi même un canon 5D version I et je voudrais comme toi qu'il soit reconnue comme un lecteur de masse. Par contre je ne trouve pas le paramètre dont tu parle dans le menu du Canon 5D. Est-ce là que tu le cherche? Où est-ce qu'il est dans Windows 7 ? Et que chercher exactement ?

Merci pour tes lumières.

A bientôt

En fait certains appareils émulent le port USB pour windows comme les portables sous Android par exemple.
Il peut être nécessaire dans ces cas d'activer cette émulation.

[excalybur]

Bonjour

Merci pour ta réponse e vais essayer.

Je présume que SP6 et MZ Tools ne sont pas incompatible?

A+

[excalybur]

Re

Je pense que le site Visual Basic 6.1 est en révision. en effet il n'y a pas d'inscrivez-vous.

Le contact de l'administrateur ne débouche pas.

Une idée ?

A+

[DarkVader]

Il n'y a pas besoin d'inscription pour télécharger les librairies,
l'inscription s'effectue ultérieurement lors de la primo utilisation de l'addin.
Une procédure automatisée via Internet est automatiquement lancée
et les références d'inscription seront celles utilisées pour reporter sur le forum.

Sinon pour le contact Administrateur, le lien en bas de page après le copyright n'est pas fonctionnel ?!

[excalybur]

Re

Pour le contact Administrateur, le lien en bas de page après le copyright n'est pas fonctionnel.

J'ai téléchargé vb6.1. Exécuté l'installation. Et plantage de VB6 SP6 au démarrage ! Même après avoir redémarré le PC.

J'ai désinstallé VB6.1 et VB6 marche de nouveau !

Est-ce MzTools le problème? Ou Win 7 ?