Discussion :

[chapeau_melon]

Hello

Peut-on faire ceci :

Au lieu de mettre c: ou d: etc... stRep = "C:\" 'Répertoire de travail

Mettre le nom d'un disque dur ou d'une clé usb.

Il se trouve que je dois travailler avec des clés usb.
Mais chez un client elle ce trouvera comme E:, chez un autre comme D:
Donc pas de référence stable.

Par contre le nom de la clé en soit ne change pas.

Bien à vous

[tigrou2405]

Bonjour avec le FSO tu peux lister les lecteurs amovibles. Il faut ensuite sauter le A (le lecteur disquette).
De mémoire ca doit être comme ca :

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
 
   Dim FSO as new FileSystemObject
   Dim lecteur as Drive
   '
   For each lecteur in FSO.Drives
       If lecteur.driveLetter <> "A" Then
           'le lecteur est-it amovible ?
           If lecteur.DriveType = Removable Then
               'le lecteur est-it prêt ? 
               If lecteur.IsReady Then    
                     msgBox "je suis la lettre de la clé " &  lecteur.driveLetter 
               End If
            End If
       end if
   Next

Pour utiliser le FSO faut pas oublier d'ajouter une réf au scripting runtime dans ton projet.

[tigrou2405]

oups g oublié ta question....
Tu dois aussi pouvoir récupérer le nom de ta clé via

Code :

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

lecteur.ShareName

puis faire un test sur le nom, mais j'ai pas essayé.

[Flow_75]

Bonjour avec le FSO tu peux lister les lecteurs amovibles. Il faut ensuite sauter le A (le lecteur disquette).
De mémoire ca doit être comme ca :

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
 
   Dim FSO as new FileSystemObject
   Dim lecteur as Drive
   '
   For each lecteur in FSO.Drives
       If lecteur.driveLetter <> "A" Then
           'le lecteur est-it amovible ?
           If lecteur.DriveType = Removable Then
               'le lecteur est-it prêt ? 
               If lecteur.IsReady Then    
                     msgBox "je suis la lettre de la clé " &  lecteur.driveLetter 
               End If
            End If
       end if
   Next

Pour utiliser le FSO faut pas oublier d'ajouter une réf au scripting runtime dans ton projet.

Salut,

tu parles d'une référence au scripting runtinme.
Mais laquel ? comment ?

Merci

[SfJ5Rpw8]

Salut,

tu parles d'une référence au scripting runtinme.
Mais laquel ? comment ?

Merci

microsoft scripting runtime
Quelle référence dois-je ajouter à mon projet pour pouvoir utiliser le FileSystemObject ?