Temps après FTP très long

**Christophe P.** · 06/10/2015, 17h10

Bonjour,

le transfert d'un fichier par FTP se fait très rapidement (je vois le fichier tout de suite sur le serveur) mais Access ne rend la main que plusieurs minutes après le transfert. Je ne vois pas ce qui cloche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Debug.Print "changement de répertoire OK : " & Time()
    'Envoi du fichier local Me.txtFichierModele.Value sur le serveur
    succes = FtpPutFile(hwndConnect, fichierLocal, Me.txtFichierModele.Value, &H0, 0)
    If succes Then
        Debug.Print "Fichier transféré : " & Time()
        MsgBox "Le fichier '" & Me.txtFichierModele.Value & "' est transféré sur le serveur."
    Else
        msgErreur = fichierDistant & " n'a pas pu être transféré. Erreur : " & err.LastDllError
        GoTo Erreur_Connexion_ouverte
    End If

Message du debug :

changement de répertoire OK : 16:57:56
Fichier transféré : 17:03:11

**PipoWIL** · 07/10/2015, 09h33

Bonjour,
transférer un fichier, cela peut prendre du temps. J'ai également déjà pu expérimenter ce même genre de problème : on voit le nom du fichier sur le serveur FTP mais le transfert n'est pas encore terminé à 100%. Malheureusement, je ne connais pas le moyen de savoir précisement quand le transfert est terminé. Votre code me semble bon. Y a-t-il moyen d'ajouter quelque chose au bout de votre fonction FtpPutFile qui s'assurerait de la fin de l'opération ?

**Christophe P.** · 07/10/2015, 10h10

FtpPutFile est une fonction de wininet. Je ne peux rien y ajouter.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _
    (ByVal hConnect As Long, ByVal lpszLocalFile As String, _
    ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, _
    ByVal dwContext As Long) As Boolean

Précision : le fichier pèse moins de 100 Ko.