Discussion :

[Docmarti]

Comment choisir parmi les lecteurs disponibles ?

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
Private Sub Choisir_Un_Lecteur_Disponible()
 
Lecteurs = ShowDriveList
 
t = Split(Lecteurs, vbLf)
 
LecteurChoisi = InputBox(result, "Entrez le lecteur choisi", t(UBound(t) - 1))
 
chemin = LecteurChoisi & ":\"
 
End Sub
 
Function ShowDriveList()
   Dim fso, d, dc, s, n
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set dc = fso.Drives
 
   ShowDriveList = ""
   For Each d In dc
      s = d.DriveLetter
      If d.DriveType = 3 Then
      ElseIf d.IsReady Then
         n = d.VolumeName
         ShowDriveList = ShowDriveList & d.DriveLetter & vbLf
      End If
   Next
 
End Function

[patricktoulon]

Bonsoir docmarti
je pense que ca devrait mieux marcher 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
16
17
18
19
20
 Sub Choisir_Un_Lecteur_Disponible()
    Dim liste,monchemin
    liste = ""
    lecteurs = Split(ShowDriveList(liste), ".")
    monchemin = InputBox(liste, "choisir la cle usb", lecteurs(0) & ":\")
End Sub
Function ShowDriveList(liste)
    Dim fso, d, dc, s, n
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set dc = fso.Drives
    ShowDriveList = ""
    For Each d In dc
        If d.DriveType = 1 Then
            If d.IsReady Then
                liste = liste & "USB " & d.DriveLetter & ":" & d.VolumeName & vbCrLf
                ShowDriveList = ShowDriveList & d.DriveLetter & "."
            End If
        End If
    Next
End Function

prends la première cle dans la hérarchie

[unparia]

Bonjour
Petit test pour ceux qui, comme moi, ne laissent pas passer ce lourdaud de FSO sur leur machine

un bouton de commande (ou une macro), une listbox listbox1 et ce code:

Code :

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

1
2
3
4
5
6
7
8
9
Private Declare Function GetLogicalDrives Lib "kernel32" () As Long
Private Sub CommandButton1_Click()
  Listbox1.Clear
  For i = 0 To 25
    If (GetLogicalDrives() And 2 ^ i) <> 0 Then
       Listbox1.AddItem Chr$(65 + i) & ":\" ' si tu veux choisir dans une listbox
    End If
  Next
End Sub

EDIT je n'ai pas inclus le lecteur A:\, réservé au lecteur de disquettes. Si on le veut également, démarrer à 64 au lieu de 65

[patricktoulon]

a oui!!! bien vu je l'avais zapé la kernel

[unparia]

Bonjour patricktoulon

J'ai choisi la librairie kernel32 car la plus rapide et élégante.
On pouvait toutefois s'en passer également, ainsi :

Code :

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

1
2
3
4
5
6
Listbox1.Clear
  For i = 0 To 25
    If Dir(Chr(65 + i) & ":\", vbDirectory) <> "" Then
       Listbox1.AddItem Chr$(65 + i) & ":\" ' si tu veux choisir dans une listbox
    End If
  Next

un peu moins rapide que mon code précédent mais plus rapide que FSO.

EDIT (et au passage) : une discussion a été fermée aujourd'hui (une histoire d'identification de clé USB en vue d'y écrire).
Il suffirait à ce demandeur de "marquer" sa fameuse clé par la présence, en sa racine, d'un fichier (nommé par exemple "abracadabra". Un simple dir lui permettrait alors de vérifier que sa clé usb est bien là et d'en identifier la lettre).

[patricktoulon]

oui mais on a pas les noms dans le cadre de cle usb ou disque amovible c'est important

il y a bien getlogicaldrivestring() avec kernel aussi mais je suis pas sur pour les noms j'ai divers vieux exemple mais un peu usine a gaz