disponibilité de fichier

Question

Bonjour,

j'ai fait un petit bout de code qui scrute en permanence une directory et d&#233;s qu'un fichier y est d&#233;pos&#233;, prend le fichier pour l'envoyer en FTP sur un serveur. Si tout marche bien sur des petits fichiers, il en est pas de meme sur des fichiers importants car les temps de copie n'etant plus negligeable, mon bout de code prend le fichier avant que celui ci ne soit entierement copi&#233; dans la directory, ce qui provoque des erreurs au moment du tranfert ftp.
Y a t il une primitive API ou une autre astuce pour savoir si un fichier quelconque est libre, sans aucun utilisateur en cours dessus ?

VEVE

cs_Jack · Answer

Salut
A mon avis, deux solutions :
- Si erreur, c'est que le fichier est en cours d'utilisation --> G&#233;rer l'erreur et reporter &#224; plus tard la m&#234;me action
- Faire une copie locale du fichier (+ rapide) et transf&#233;rer la copie.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Champion du monde de boule de cristal - 2005
Le savoir est la seule mati&#232;re qui s'accro

asecher · Answer

Tu peux aussi v&#233;rifier si la taille du fichier change entre deux scans.
Function ShowFileSize(filespec)
   Dim fso, f, s
   Set fso =  CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(filespec)
   s = UCase(f.Name) & " utilise " &  f.size  & " octets."
   ShowFileSize  = s
End Function

Alain 31

Disponibilité de fichier

2 réponses

Discussions similaires