Tester la reception d'un fichier venant d'un serveur ftp [Résolu]

Bobobo12 1 Messages postés dimanche 18 février 2007Date d'inscription 23 avril 2007 Dernière intervention - 23 avril 2007 à 16:18 - Dernière réponse : cs_Maroxye 177 Messages postés vendredi 3 novembre 2000Date d'inscription 16 octobre 2012 Dernière intervention
- 23 avril 2007 à 16:35
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
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
cs_Maroxye 177 Messages postés vendredi 3 novembre 2000Date d'inscription 16 octobre 2012 Dernière intervention - 23 avril 2007 à 16:35
3
Merci
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

Merci cs_Maroxye 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 120 internautes ce mois-ci

Commenter la réponse de cs_Maroxye
cs_Maroxye 177 Messages postés vendredi 3 novembre 2000Date d'inscription 16 octobre 2012 Dernière intervention - 23 avril 2007 à 16:33
0
Merci
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
Commenter la réponse de cs_Maroxye

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.