Tester si un fichier est accessible

Salut, on sait pas trop où est la question, on devine :o)

Ben je pense qu'en testant l'accès au fichier (I/O), si ce dernier est
autorisé, c'es que c'est ok, donc il faut mettre un accès normal au fichier
avec un
on error goto erreur
ouverture fic...
close p
exit sub
'*
erreur:
close p
si Err <> 0 then... décides...

--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !


"RENAUD Eric" <erenaud@fr.fm> a écrit dans le message de
news:eCEg72HoEHA.1712@tk2msftngp13.phx.gbl...

Bonjour,
Je dois dans une plage horaire, tester si un fichier est présent (ça c'est
OK) et en plus vérifier s'il est disponible, c'est à dire que lorsque

qu'il

est en cours de transfert il est dispo mais pas encore accessible.
Donc dès que le transfert de ce fichier est terminé, il devient a
ccessible et peut être traité.
D'avance merci

"RENAUD Eric" <erenaud@fr.fm> wrote in message
news:eCEg72HoEHA.1712@tk2msftngp13.phx.gbl...

Bonjour,
Je dois dans une plage horaire, tester si un fichier est présent (ça c'est
OK) et en plus vérifier s'il est disponible, c'est à dire que lorsque

qu'il

est en cours de transfert il est dispo mais pas encore accessible.
Donc dès que le transfert de ce fichier est terminé, il devient a
ccessible et peut être traité.

Hello,

tu peux faire une bidouille du genre:
tu l'ouvres en lecture. Si ouverture ok, tu prends sa taille ( T1)
tu le fermes
tu attends 5 secondes
tu l'ouvres en lecture. Si ouverture ok, tu prends sa taille (T2)
tu le fermes

Si tout ça a réussi, ET si T1 = T2, alors je suppose que c'est ok, non ?

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."

Essaie un truc comme ceci :

Sub ShowFileAccessInfo(filespec)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = f.Name & " on Drive " & UCase(f.Drive) & vbCrLf
s = s & "Created: " & f.DateCreated & vbCrLf
s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
s = s & "Last Modified: " & f.DateLastModified
MsgBox s, 0, "File Access Info"
End Sub

anonymous@discussions.microsoft.com submitted this idea :

Essaie un truc comme ceci :

Sub ShowFileAccessInfo(filespec)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = f.Name & " on Drive " & UCase(f.Drive) & vbCrLf
s = s & "Created: " & f.DateCreated & vbCrLf
s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
s = s & "Last Modified: " & f.DateLastModified
MsgBox s, 0, "File Access Info"
End Sub

Bonjour,
attention au filesystem voir la faq vb
(http://faq.vb.free.fr/index.php?question1 et
http://faq.vb.free.fr/?question6) et bien sur les fameux threads sur
le même sujet (voir google + fso ou FileSystemObject -->
http://groups.google.be/groups?hl=fr&lr=&ie=UTF-8&safe=off&threadm=bkfige%24gvi%241%40news.tiscali.fr&rnumH&prev=/groups%3Fq%3DFileSystemObject%2Bmicrosoft.public.fr.vb%2Bzoury%26start%3D40%26hl%3Dfr%26lr%3D%26ie%3DUTF-8%26safe%3Doff%26selm%3Dbkfige%2524gvi%25241%2540news.tiscali.fr%26rnum%3D48
lire complètement le threads).

@+ Quaz

--
This is an automatic signature of MesNews.
Site : http://mesnews.no-ip.com

RENAUD Eric laid this down on his screen :

Bonjour,
Je dois dans une plage horaire, tester si un fichier est présent (ça c'est
OK) et en plus vérifier s'il est disponible, c'est à dire que lorsque qu'il
est en cours de transfert il est dispo mais pas encore accessible.
Donc dès que le transfert de ce fichier est terminé, il devient a
ccessible et peut être traité.
D'avance merci

bonjour,
il existe un bon exemple de départ sans utiliser le fso. Allez voir
dans l'API-GUIDE (http://www.mentalis.org/agnet/apiguide.shtml) sur
GetFileInformationByHandle et tester l'exemple.

@+ Quaz

--
This is an automatic signature of MesNews.
Site : http://mesnews.no-ip.com