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) ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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 !!!
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" <jean-pierre.laguerrePASDESPAM@club-internet.fr> a
écrit dans le message de news:%236xYWBNGEHA.696@TK2MSFTNGP12.phx.gbl...
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
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 !!!
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 !!!
Merci encore une fois pour le dépannage !!!
Jean- Pierre
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message news:
uKtQCHNGEHA.2732@tk2msftngp13.phx.gbl...
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" <jean-pierre.laguerrePASDESPAM@club-internet.fr> a
écrit dans le message de news:%236xYWBNGEHA.696@TK2MSFTNGP12.phx.gbl...
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
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 !!!
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 !!!
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.
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) ?
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) ?
