Test de l'utilisation d'un fichier en VB6

Bonjour,

Dans mon application, je reçois des fichers toutes les 2 secondes, et je dois les analyser pour extraire le contenu intéressant et l'afficher à l'utilisateur. J'ai fait une boucle qui regarde périodiquement dans le dossier pour savoir si le fichier existe, et si il existe, je l'ouvre.

Le problème est que si j'ouvre le fichier quand il est en train d'être écrit, j'ai une erreur lors de l'analyse. Il faudrait donc que je sache si il est utilisé, et dans ce cas j'attends qu'il ne soit plus utilisé pour l'ouvrir.

Pourriez-vous m'aider svp ?

D'avance merci.

plutot qu'une boucle :

http://www.vbfrance.com/codes/SURVEILLER-MODIFS-REPERTOIRE_17157.aspx

"bricolage", certes...

je fais ainsi, dans un outil vte fait pour el boulot (même genre de process)

Private Sub ViewAFP(ByRef vsPath As String, ByRef vsFileName As String)
Dim hFile As Long
Static sOldFileName As String
Static nOldFileSize As Long
Static dOldFileTime As Date
    hFile = CreateFile(vsPath & vsFileName, GENERIC_WRITE, 0, ByVal 0&, OPEN_EXISTING, 0, 0)
    If hFile <> -1 Then
        CloseHandle hFile
        DoEvents

        If sOldFileName <> vsPath & vsFileName Or _
           nOldFileSize <> FileLen(vsPath & vsFileName) Or _
           dOldFileTime <> FileDateTime(vsPath & vsFileName) Then
            sOldFileName = vsPath & vsFileName
            nOldFileSize = FileLen(sOldFileName)
            dOldFileTime = FileDateTime(sOldFileName)
            
            On Local Error Resume Next
                Shell App.Path & "\NopViewer.exe """ & vsPath & vsFileName & ChrW$(34), vbNormalFocus
            On Local Error GoTo 0
        End If
    End If
End Sub

La fonction CreateFile ne fonctionne pas dans ce cas : le fichier n'est pas bloqué. Je vais plutôt m'orienter vers la surveillance de la taille du fichier : je connais la taille minimale qu'il doit avoir, je considère donc qu'il en train d'être écrit si sa taille est inférieure à la taille minimale, et je l'ouvre ensuite.

Je posterai pour donner le résultat.

ah, ok, si le fichier n'est pas bloqué, alors...

Bonjour,

A tout hasard, la fonction "RESET" a des chances de règler ton problème, puisqu'elle ferme en lecture ou en écriture tout les fichier...

Amicalement,
Us.

... si le fichier est ouvert avec OPEN...

Us.

euh, oui, mais non...
je veux dire, on va pas couper l'herbe sous le pied au programme externe qui est en train de produire notre fichier...

on attend juste que la génération soit finie ^^

Ou d'agir sur les attributs du fichier... idée simple, mettre un attribut "Lecture Seule" après écriture... cela demande de pouvoir agir sur le programe externe...

Us.