Discussion :

[oazar]

salut,
J'ai un lecteur de carte flash sur mon port usb, il est reconnu comme lecteur amovible, et j'aimerai savoir comment recuperer la letre ou la variable VB correspondant à ce lecteur.Car selon les machines la letre ne sera pas la meme, et j'aimerai aussi savoir si

Code :

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

Set dr = fs.Drives("A")

fonctionne pour une carte flash ...

merci de l'aide.
++

[DarkVader]

Teste
fs.drivetype=1 (pour amovible)

[oazar]

merci j'ai utilisé cec ke tu m'as donné.


Ms j'ai un autre probleme, je 'arrive ps a savoir s'il y a ou pas une carte flash ds mon lecteur amovible, j'ai essayé une methode dont je me servais pour verifier k'il y avait une disquette, ms ca ne marche pas.

Vous savez pas ce ke je peut faire ,

Code :

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

1
2
3
4
 
If drv.DriveType = Removable And lettre_lecteur <> "A" Then
            fs.CreateFolder lettre_lecteur & ":\Suivi"
end if

car en marquant ca , il me dit pas s'il y a une carte ou pas !!!!

Comment faire ?

[DarkVader]

essaie avec

Code :

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

drv.isready

[oazar]

J'te dis un grand merci Dark Vader, sans toi je n'aurrai pas finis ds les delai !!! Thanks


Voila mon code pour tout recapituler...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
dim FSO As New FileSystemObject
Dim drv As Drive
 
For Each drv In FSO.Drives 
lettre_lecteur = drv.DriveLetter
If drv.DriveType = Removable And lettre_lecteur <> "A" Then
        If drv.IsReady = True Then
              ...
        Else
            MsgBox "Veuiller insérer une carte flash et recommencer"
        End If
End If
Next

Voila voila ... encore merci... et bonnes fetes


++

[DarkVader]

Toi de même,
et heureux de t'avoir dépanné %)