madjeku
Messages postés4Date d'inscriptionjeudi 13 mai 2010StatutMembreDernière intervention14 juin 2010
-
3 juin 2010 à 10:28
madjeku
Messages postés4Date d'inscriptionjeudi 13 mai 2010StatutMembreDernière intervention14 juin 2010
-
14 juin 2010 à 17:20
Bonjour ,
je suis un débutant en développement et j'effectue un stage ou je viens de concevoir une application sous vb6 qui me permet d'analyser et traiter des fichiers sous format txt. Pour le moment, il n'y a aucun souci car les fichiers que je traite sont en locales.
Le bémol est que mon application doit être capable de traiter les fichiers venant des postes distants. Ftp répond à la question, mais mon encadrant me demande de développé un ftp non interactif pour éviter le problème de pswrd.
je suis un peu perdu sur cette question , et j'aimerais avoir des éclaircissement.
Merci d'avance, et bonne journée à vous!
madjeku
Messages postés4Date d'inscriptionjeudi 13 mai 2010StatutMembreDernière intervention14 juin 2010 3 juin 2010 à 16:00
Merci pour votre feedback Renfield. Mais je dois intégrer cette syntaxe dans quelle partie de mon code.
Dois je le mettre dans la partie du code correspondant à l'ouverture du fichier
Cordialement!
Vous n’avez pas trouvé la réponse que vous recherchez ?
madjeku
Messages postés4Date d'inscriptionjeudi 13 mai 2010StatutMembreDernière intervention14 juin 2010 14 juin 2010 à 16:06
Merci,
je viens de faire aujourd'hui une autre méthode en faisant appel à l'activex chilkatftp2.
j'arrive à me connecter au serveur, mais j'ai un problème au moment de récupérer les fichiers. A mon avis , je pense que je peche avec la localisation du fichier.
je vous mets le code que j'utilise et en gras l'endroit ou je pense qu'il y a un souci .
cordialement
' Connect and login to the FTP server.
success = ftp.Connect()
If (success <> True) Then
MsgBox ("La connexion au serveur FTP a échouée")
Exit Function
End If
' Download a file.
[b]Dim localFilename As String
localFilename = "C:\Fichiers\MMIS"
Dim remoteFilename As String
remoteFilename = "export/local/home/stage/exemple"
success = ftp.GetFile(remoteFilename, localFilename)/b If (success <> True) Then
MsgBox ("Transfert a échoué")
Exit Function
End If
ftp.Disconnect
MsgBox ("File Downloaded!")
madjeku
Messages postés4Date d'inscriptionjeudi 13 mai 2010StatutMembreDernière intervention14 juin 2010 14 juin 2010 à 17:20
J'ai pas de message d'erreur quelconque , mais il exécute pas la ligne : [b]success = ftp.GetFile(remoteFilename, localFilename)
/b Car le message qui me donne est "Transfert a échoué".
cordialement