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.

[excalybur]

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.

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

[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 ?

[DarkVader]

Re

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

J'ai pourtant testé le lien (mailto) qui fonctionne parfaitement avec gmail sinon il suffit de copier l'adresse du lien (clic droit)
dans le logiciel d'email. Testé ainsi, cela fonctionne aussi parfaitement.
Sinon l'adresse est : Administration VB6i <VB6i_Administrator@vb6i.com>

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 ?

Aucune incompatibilité (j'utilise moi-même MZ-Tools) et l'install a été testé sous XP32, Seven64 et Huit ;
par contre la version de setup mis en ligne ce week-end posait problème
et comme les numéros de versions de librairies n'ont pas été modifiés
il est possible que l'installation n'écrase pas les anciennes versions.

Sinon, il y a peut-être des problèmes de droits administrateur, d'anti-virus ou d'installation avec l'IDE VB6 activée.
Outre les régles habituelles lors des installations (désactivation des anti-virus, fermeture des programmes actifs)
quand cela ne suffit pas, la plupart du temps à partir de Vista, il suffit d'adapter les paramètres de compatibilité du setup
dans la fenêtre de Propriétés du programme (mode de compatibilité XP SP3 et exécuter en mode administrateur).

[excalybur]

Merci les réponses cela me rassure.

J'ai un autre PC installé avec XP pro 32. Je vais faire un check lorsque le setup sera up to date !

Questions subsidiaires puisque tu as seven64 avec SP6 :

1/ Sous seven 64 lorsque l'écran d'accueil s'affiche : As-tu l'info VB6 pro SP6 ou simplement VB6 pro

Car dans mon cas j'ai que VB6 pro et pourtant SP6 m'a informé que l'installation était ok.

2/ Sous seven 64 lorsque tu consulte 'à propos de' as-tu "VB6 (SP6) V.9782" ou "VB6 V.8176" ?

Car dans mon cas j'ai "VB6 V.8176"

3/ J'ai installé VB6 + SP6 sur mon portable 32 bits en XP pro et à l'init j'ai l'info VB6 pro SP6 et 'à propos de' donne "VB6 (SP6) V.9782"

Bizarre... SP6 est peut être mal installé sous seven64 ?

As-tu une application ne fonctionnant pas sous VB6 mais bien sous SP6 pour faire un test pour vérifier la présence de SP6?

Au départ (et de mémoire!?!) la config de mon VB6 SP6 était bonne sous seven64, mais suite à une mauvaise installe de MZTools et désinstallation intégrale de VB6 + MZ je n'ai plus le même visuel à l'accueil (voir 1 et 2).

Ceci explique peut être cela?

A+

[DarkVader]

Merci les réponses cela me rassure.

J'ai un autre PC installé avec XP pro 32. Je vais faire un check lorsque le setup sera up to date !

Questions subsidiaires puisque tu as seven64 avec SP6 :

1/ Sous seven 64 lorsque l'écran d'accueil s'affiche : As-tu l'info VB6 pro SP6 ou simplement VB6 pro

Car dans mon cas j'ai que VB6 pro et pourtant SP6 m'a informé que l'installation était ok.

VB6 Entreprise SP6

2/ Sous seven 64 lorsque tu consulte 'à propos de' as-tu "VB6 (SP6) V.9782" ou "VB6 V.8176" ?

Car dans mon cas j'ai "VB6 V.8176"

6.0.9782

3/ J'ai installé VB6 + SP6 sur mon portable 32 bits en XP pro et à l'init j'ai l'info VB6 pro SP6 et 'à propos de' donne "VB6 (SP6) V.9782"

Bizarre... SP6 est peut être mal installé sous seven64 ?

As-tu une application ne fonctionnant pas sous VB6 mais bien sous SP6 pour faire un test pour vérifier la présence de SP6?

Au départ (et de mémoire!?!) la config de mon VB6 SP6 était bonne sous seven64, mais suite à une mauvaise installe de MZTools et désinstallation intégrale de VB6 + MZ je n'ai plus le même visuel à l'accueil (voir 1 et 2).

Ceci explique peut être cela?

A+

A l'évidence la SP6 n'est pas installée.

Il faut respecter l'installation que j'ai décrite dans l'article Compatibilité Seven ...
(comme d'ailleurs pour la plupart des installations depuis Vista et surtout sous une OS64bits) :
- fermeture des application,
- fermeture de l'anti-virus s'il y en a un,
- exécution du setup en mode administrateur voir en mode compatibilité XP-SP3.

[excalybur]

VB6 Entreprise SP6
6.0.9782
A l'évidence la SP6 n'est pas installée.

Il faut respecter l'installation que j'ai décrite dans l'article Compatibilité Seven ...
(comme d'ailleurs pour la plupart des installations depuis Vista et surtout sous une OS64bits) :
- fermeture des application,
- fermeture de l'anti-virus s'il y en a un,
- exécution du setup en mode administrateur voir en mode compatibilité XP-SP3.

J'ai fait un test sur un autre PC (même config seven64) et tout s'installe y compris SP6 même avec l'antivirus Norton Internet Security actif. Donc c'est bon pour SP6 et version 9782.

J'ai donc pris la décision de désinstaller MZtools, SP6 et VB6 du PC en défaut. Pour MZ et SP6 désinstallation ok mais impossible de désinstaller VB6 ! Message "Installation de MSDN Library VS6 - l'opération n'a pas pu être terminée" !!!! MSDN ??? sic ! Un gros bug donc !

De plus dans le désinstaleur Win7 c'est le seul programme qui n'a plus de flag Microsoft Corpo ni de taille ni version ! Mais bien un jour d'installation.

J'ai essayé avec CCleaner même constat.

Et pourtant le programme fonctionne bien sans SP6 !

Comment procéder en manuel à cette désinstallation complète ?

Je cherche !

A+

[DarkVader]

La procédure de désinstallation et réinstallation est décrite à l'adresse suivante
http://www.developpez.net/forums/d13...atibilite-vb6/

Attention toutefois à TOUT lire dans le détail.

[excalybur]

Bonsoir

Mystère !

J'ai bien suivi cette procédure après le méchant nettoyage façon manuel décrit par microsoft. Par contre il est impossible de nettoyer les HH.... de windows en mode admin. Donc c'est la seul étape que j'ai zapé.

J'ai réinstallé VB6 = OK
SP6 ne prend pas.
Mousewhelle.dll = ok
mz tools = ok

Par contre cette fois_ci si je veux désisntaller VB6 j'ai un message d'erreur d'installation : 544 Le pg ne peut pas ouvrir le fichier de données 'C:\program Files(x86) Microsoft visual Studio\Common\Setup\1036\Setup.slf. Veuillez réexecuter leprogramme d'installation à partir de son emplacement d'origine. !!!

Quid cet emplacement d'origine ? Le DVD ?