Discussion :

[ShutleX20]

Bonjour

J'ai une application qui tourne sur differents portable( a peu pres 50 de diff marques ), le but du programme est d'envoyer le rapport journalier sur une base de donné access qui se trouve sur une Cle USB. Je suis confronté au pb suivant. le nom logique de l'unité de stokage USB change d'un portable a un autre. Y a t il un moyen de detecter ce nom avant de faire la sauvegarde.

Merci

[bidou]

soit tu l'identifie par son numéro de série soit par son type par exemple.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Function GetKeyLetter() As String
Dim fso As New FileSystemObject
Dim Disque As Drive
 
For Each Disque In fso.Drives
    If Disque.DriveType = Removable Then
        GetKeyLetter = Disque.DriveLetter
        Exit Function
    End If
Next
End Function

attention, avec le type comme dans l'exemple un lecteur de disquette répond correctement. De plus il y a toute une gestion d'erreur à faire selon la nature des unités que tu risques de rencontrer.

[Catbull]

Personnellement, je supprimerais l'instruction Exit Function.

Il y a de forte chance que l'unité du lecteur USB soit après (au niveau de la collection Drives) celle du lecteur de disquette. En gardant l'instruction Exit For tu obtiens le premier lecteur amovible (usb, disquette, zip, etc...) en le supprimant tu obtiens le dernier lecteur amovible.

Reste quand même à gérer les erreurs.

Il y a peut-être une méthode plus propre en utilisant les API. A voir.

[ShutleX20]

Merci Bidou et Catbull pour vos 2 solutions En combinant les 2 cela repondait a ma question je suis content ca marche.