Comment détecter clef usb ???

Merci, merci, je vais étudier la question :o)

------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Joël" <joel.decotigny@wanadoo.fr> a écrit dans le
message de news:
466b97ee$0$5089$ba4acef3@news.orange.fr...
| bonjour le troll
| pour tester la capacité:
| Private Sub Form_Load()
| Dim Fso As New FileSystemObject
| Dim Lecteur As Drive
| Dim Nom As String
| Dim Capacite, Disponible
|
| For Each Lecteur In Fso.Drives
|
| If Lecteur.DriveType = 3 Then
| Nom = Lecteur.ShareName
| Else
| If Lecteur.IsReady Then
|
| '************ Nom de volume
********************'
|
| Nom = Lecteur.VolumeName
|
| '***** Espace disponible et
capacité *********'
|
| Capacite > Round(Lecteur.TotalSize / 1024 / 1024 / 1024, 2)
| & " Go"
|
| If Capacite < "1" Then
| Capacite > Round(Lecteur.TotalSize / 1024 / 1024, 2) & "
| Mo"
| End If
|
| Disponible > Round(Lecteur.AvailableSpace / 1024 / 1024 /
| 1024, 2) & " Go"
|
| If Disponible < "1" Then
| Disponible > Round(Lecteur.AvailableSpace / 1024 / 1024,
| 2) & " Mo"
| End If
|
| List1.AddItem Lecteur.DriveLetter
& " - " & Nom & "
| Capacité: " & Capacite & " Disponible: " &
Disponible
|
| Else
|
| '******** Lecteur non-disponible
*************'
|
| Nom = "< Non prêt >"
| Capacite = ""
| Disponible = ""
|
| List1.AddItem Lecteur.DriveLetter
& " - " & Nom & "Lecteur
| disquette ou CD-ROM vide "
|
| End If
| End If
|
| Next
|
| End Sub
|
| "LE TROLL" <le troll@enfer.fr> a écrit dans le
message de news:
| uqLBXquqHHA.4852@TK2MSFTNGP06.phx.gbl...
| > Jacques, on vient de me donner une réponse
simple,
| > tester la capacité, si j'ai 128, 256, 512, 1,
2,
| > 4, 8, 16 = clef usb présumé, je peux demander
| > confirmation en cas de doute...
| > Reste à savoir comment tester la capacité,
faut
| > que je trouve un truc là dessus...
| >
| > --
| > Merci beaucoup, au revoir et à bientôt :o)
| > ------
| > Romans, logiciels, email, site personnel
| > http://irolog.free.fr/joe.htm
|
> ------------------------------------------------------------------------------------
| > "Jacques93" <jacques@Nospam> a écrit dans le
| > message de news:
| > ewXdsvrqHHA.4200@TK2MSFTNGP05.phx.gbl...
| > | LE TROLL a écrit :
| > | > Bonjour Jacques,
| > | >
| > | > Oui c'est ça, je vais voir, si ça ne
| > marche
| > | > pas je te dis... Dommage qu'il faille un
OCX,
| > car
| > | > avec Vista ça va encore râler si ça se
trouve?
| > |
| > | Non, non, ça passe bien. Même semble t-io
plus
| > rapide que sous XP
| > | >
| > | > Sur un PC moderne, ça ne devrait
commencer
| > | > qu'à E...
| > | >
| > | > Moi je me demandais autre chose, sans
| > | > réellement savoir, en l'espèce, de
rechercher
| > par
| > | > exemple un dossier à partir de C disons,
qui,
| > on
| > | > en est certain, n'est pas sur une USB
(sauf
| > | > miracle), là il suffirait de marcher avec
un
| > DIR,
| > | > vois-tu un dossier obligatoirement sur un
| > disque
| > | > physique mais pas usb (pour les vide > erreur
| > > | > | > pas de problème, par exemple le CD) ???
| > | >
| > |
| > | Là je ne sais pas. Par contre si tu veux
savoir
| > si le media est fixe,
| > | amovible, CD-ROM, etc, il y a FSO. Avec une
| > référece à Microsoft
| > | Scripting Runtime :
| > |
| > | Dim fso As FileSystemObject ' Microsoft
| > Scripting RunTime
| > | Dim drv As Drive
| > | Dim s As String
| > |
| > | Set fso = New FileSystemObject
| > | For Each drv In fso.Drives
| > | Select Case drv.DriveType
| > | Case 0: s = "Type inconnu"
| > | Case 1: s = "disque amovible"
| > | Case 2: s = "disque dur"
| > | Case 3: s = "disque réseau"
| > | Case 4: s = "CD-Rom"
| > | Case 5: s = "disque RAM"
| > | End Select
| > | Debug.Print drv.DriveLetter & ": " & s;
| > | If drv.IsReady Then Debug.Print " [" &
| > drv.VolumeName & "]"
| > | Next drv
| > | End Sub
| > |
| > | Voir aussi la FAQ :
| > |
| > |
<http://faq.vb.free.fr/index.php?question1>
| > |
<http://faq.vb.free.fr/index.php?question6>
| > | --
| > | Cordialement,
| > |
| > | Jacques.
| >
| >
|
|

Bonjour,

Comment détecter un lecteur virtuelle clef usb
pour sauvegarde, et ou, restauration ?

--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
--------------------------------------------------------------------------