Test de présence de disquette

Le
Jean-Pierre LAGUERRE
Bonjour,

Quelqu'un pourrait-il me dire s'il est possible d'effectuer un test de
présence de disquette dans le lecteur avant d'effectuer la copie de fichiers
(Access 2002) ?

Merci beaucoup !!!
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Raymond [mvp]
Le #5010291
Bonsoir.

tu peux tester directement la présence du fichier par dir ou filesearch. tu
peux également utiliser l'objet filesystemobjects qui te donnera d'autres
informations complémentaires sur le support(ready par exemple)
pour filesearch: http://access.seneque.free.fr/fichiers.htm
pour filesystemobjetcs : http://access.seneque.free.fr/fileexists.htm et
pages connexes
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jean-Pierre LAGUERRE" écrit dans le message de news:%
Bonjour,

Quelqu'un pourrait-il me dire s'il est possible d'effectuer un test de
présence de disquette dans le lecteur avant d'effectuer la copie de
fichiers

(Access 2002) ?

Merci beaucoup !!!




Jean-Pierre LAGUERRE
Le #5010251
Merci encore une fois pour le dépannage !!!

Jean- Pierre

"Raymond [mvp]"
Bonsoir.

tu peux tester directement la présence du fichier par dir ou filesearch.
tu

peux également utiliser l'objet filesystemobjects qui te donnera d'autres
informations complémentaires sur le support(ready par exemple)
pour filesearch: http://access.seneque.free.fr/fichiers.htm
pour filesystemobjetcs : http://access.seneque.free.fr/fileexists.htm et
pages connexes
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jean-Pierre LAGUERRE" écrit dans le message de news:%
Bonjour,

Quelqu'un pourrait-il me dire s'il est possible d'effectuer un test de
présence de disquette dans le lecteur avant d'effectuer la copie de
fichiers

(Access 2002) ?

Merci beaucoup !!!








Eric
Le #5010231
Bonjour Jean-Pierre

Regardes au niveau de l'aide à la propriété IsReady
Tu trouveras ce dont tu as besoin. Je te copie le code donné.

Sub AfficheInfoLecteur(drvpath)
Dim fs, d, s, t
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(drvpath)
Select Case d.DriveType
Case 0: t = "Inconnu"
Case 1: t = "Amovible"
Case 2: t = "Fixe"
Case 3: t = "Réseau"
Case 4: t = "CD-ROM"
Case 5: t = "Disque RAM"
End Select
s = "Lecteur " & d.DriveLetter & ": - " & t
If d.IsReady Then
s = s & vbCrLf & "Lecteur prêt."
Else
s = s & vbCrLf & "Lecteur non prêt."
End If
MsgBox s
End Sub

Dans la fenêtre Exécution si tu tapes : AfficheInfoLecteur("a:") tu auras
la msgbox

Cet exemple est donné en Access2k, je pense que la propriété est
maintenue pour Access2002.

A+
Eric



"Jean-Pierre LAGUERRE" écrivait news:#:

Bonjour,

Quelqu'un pourrait-il me dire s'il est possible d'effectuer un test de
présence de disquette dans le lecteur avant d'effectuer la copie de
fichiers (Access 2002) ?

Merci beaucoup !!!





Publicité
Poster une réponse
Anonyme