recherche du bon lecteur

[gildautal]

bonsoir,
j'ai ceci:

On Error Resume Next
ChDrive ("C:")
If Err.Number <> 0 Then ChDrive ("D:")
On Error GoTo 0

peut on le faire en balayant C , D , E et F ? et comment
merci

 

[skoobi]

Re : recherche du bon lecteur

Bonsoir gildautal, bienvenue sur XLD,

A tester:

Sub test()
Lecteur = Array("C:", "D:", "E:", "F:")
On Error Resume Next
For i = 0 To UBound(Lecteur)
  ChDrive (Lecteur(i))
  If Err.Number = 0 Then Exit For
Next
On Error GoTo 0
End Sub

 

[Staple1600]

Re : recherche du bon lecteur

Bonsoir

Sub test()
Dim monRep As String
Dim codeA As Integer
Dim i As Integer

On Error Resume Next
codeA = Asc("A")
For i = codeA To codeA + 25
ChDrive Chr(i)
If Err <> 68 Then
MsgBox "Vous disposez du lecteur " & Chr(i)
End If
Err = 0
Next
ChDrive monRep
End Sub

source: ici

 

[lagodille]

Re : recherche du bon lecteur

Est ce que cela fonctionnera si j'exclue C et D et que le balayage se fasse sur E, F et G ?

 

[skoobi]

Re : recherche du bon lecteur

Re bonjour,

oui:

.......
Lecteur = Array("E:", "F:", "G:")
...
.........

 

[Pierrot93]

Re : recherche du bon lecteur

Bonjour à tous

Pas tout compris du besoin, une autre solution pour boucler sur tous les lecteurs :

Option Explicit
Sub test()
Dim fso As Object, d As Object
Set fso = CreateObject("Scripting.FileSystemObject")
For Each d In fso.drives
    MsgBox d.Path
Next d
End Sub

bonne journée
@+

 

[lagodille]

Re : recherche du bon lecteur

bonsoir
pour pierrot et bien sur les autres.
je pars d'une idée simple puis petit à petit j'améliore mon test.
Moi aussi je n'ai pas compris ce qu'à fait pierrot et s'il pouvait traduire en français , je lui serais très reconnaissant le but du jeu étant de progresser.
Maintenant en approfondissant un peu plus sur ce que m'a dit skoobi, je voudrais savoir si je peux distinguer dans ma recherche mon lecteur CD, mes partitions, et mes accès USB.
En fait, si j'exporte mon fichier sur un autre PC, j'aimerai que mon fichier détecte lors de l'enregistrement sur quel support je peux enregistrer (éviter entre autre le lecteur CD ou des partitions verrouillées).
voilà. merci encore pour votre aide précieuse

 

[skoobi]

Re : recherche du bon lecteur

Re,

j'aimerai que mon fichier détecte lors de l'enregistrement sur quel support je peux enregistrer (éviter entre autre le lecteur CD ou des partitions verrouillées).

dans ce cas, est-ce que la boite de dialogue d'enregistrement te conviendrait-il?:

application.FileDialog(msoFileDialogSaveAs).Show

 

[lagodille]

Re : recherche du bon lecteur

merci skoobi je regarde ça demain
bonne soirée

 

[gildautal]

Re : recherche du bon lecteur

bonsoir,
ton idée me convient très bien et je ne connaissais pas cette commande
à plus tard
merci

 

[Pierrot93]

Re : recherche du bon lecteur

Bonjour à tous

pour distinguer les différents lecteurs :

Option Explicit
Sub test()
Dim fso As Object, d As Object, i As Byte
i = 1
Set fso = CreateObject("Scripting.FileSystemObject")
For Each d In fso.drives
    Cells(i, 1).Value = d.DriveLetter
    Cells(i, 2).Value = d.DriveType
    Select Case d.DriveType
        Case 0: Cells(i, 3) = "Inconnu"
        Case 1: Cells(i, 3) = "Amovible"
        Case 2: Cells(i, 3) = "Fixe"
        Case 3: Cells(i, 3) = "Réseau"
        Case 4: Cells(i, 3) = "CD-ROM"
        Case 5: Cells(i, 3) = "Disque RAM"
    End Select
    i = i + 1
Next d
End Sub

bonne journée
@+

Edition : utilisation de la propriété "DriveLetter", qui renvoie la lettre, plutôt que "path" qui renvoie le chemin...