Discussion :

[baboon]

bonjour a tous !

tout est dsi dans le titre ...

visual veut pas m'ajouter le composant FileSystemObjet et je ne comprend pas pourquoi ...

du coup apres si je code quelque chose avec , forcement, sa ne fonctionne pas ...

voila sa que je voudrai faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim fs As FileSystemObject
Dim LesLecteurs As Drives, UnLecteur As Drive
Set fs = CreateObject("Scripting.FileSystemObject")
Set LesLecteurs = fs.Drives 'liste des lecteurs
 
    For Each UnLecteur In LesLecteurs 'pour chaque lecteur, si le type est "Removable" on relève le répertoire racine
        On Error Resume Next
        If UnLecteur.DriveType = Removable And UnLecteur <> "A:" Then
            path_cle = UnLecteur.RootFolder
            Exit For
        End If
    Next

[bouley]

Bonjour baboon,
Si ton message d'erreur est : "Type défini par l'utilisateur non défini"
C'est que tu n'as pas fais référence à Microsoft Scripting Runtime
Pour cela Menu Projet ---> Référence ---> et tu coches Microsoft Scripting Runtime !
@+

[baboon]

Merci beaucoup ! c'était effectivement sa !