tester la reception d'un fichier venant d'un serveur ftpRésolu

Question

bonjour
je suis en stage dans le cadre de ma licence professionnelle.

mon projet est une interface Access2000(vba-formulaire) qui doit pouvoir envoyer et recevoir des fixhiers xml(qui correspondent a mes tables) sur un serveur ftp.
j'ai réussis cela avec le shell que j'appelle à travers mon vba.

mais lors de la reception d'un fichier (du ftp vers mon ordi en local dans un dossier), je voudrais savoir le moment ou il est acceccible.

pour l'instant je me contente de temporiser avec une boucle mon code avant de convertir ce fichier xml(en espérant que le tranfert soit fini) dans mes tables. c'est du bricolage...^^

pour résumer,   je souhaiterais connaître une intruction me permettant de tester l'existance d'un fichier dans un dossier.

merci de m'aider
bonne journée

cs_Maroxye · Accepted Answer

Je suis désolé, enlève les balises  et . J'essaie de placer mon code dans une zone grise pour plus de clarté, mais je n'ai pas les balises dans le haut de mon écran et les flèches ne fonctionnent pas pour les faire apparaître. (?)

 Maroxye

cs_Maroxye · Answer

Bonjour,

J'ai pris ceci en quelque part sur ce site et ça fonctionne très bien! Bonne chance!


Public Sub pauselisting(FileName As String)
Dim filecree As String
Dim start


DirName = "c:"


debut1:
  start = Timer ' Définit l'heure de début.
  
  Do While Timer < start + 2 'Vérifie à toutes les 2 secondes
    DoEvents  ' Donne le contrôle à d'autres processus.
  Loop
  
  filecree = Dir(DirName &amp; FileName)
  
  If filecree = FileName Then
    GoTo suite1
  End If
  
  GoTo debut1
  
suite1:
MsgBox "Le fichier est apparu!"




End Sub








 Maroxye

Tester la reception d'un fichier venant d'un serveur ftp

2 réponses

Votre réponse

Discussions similaires