Test de présence de disquette

3 réponses
Avatar
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 !!!

3 réponses

Avatar
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" a
é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 !!!




Avatar
Jean-Pierre LAGUERRE
Merci encore une fois pour le dépannage !!!

Jean- Pierre

"Raymond [mvp]" a écrit dans le message news:

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" a
é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 !!!








Avatar
Eric
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 !!!