ftp non interactif sous vb6Résolu

Question

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!

Renfield · Accepted Answer

tentes ce genre de syntaxe :

ftp://login:password@host:port/folder/file

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

madjeku · Answer

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!

Renfield · Answer

Une simple fonction suffit...

voir les APIs suivantes :

InternetOpen
InternetConnect
FtpOpenFile
InternetReadFile
CloseHandle
InternetCloseHandle

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

madjeku · Answer

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 Dim success As Boolean ftp.HostName = "10.128.14.20" ftp.Username = "stage" ftp.Password = "stage11" ' 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!")

Renfield · Answer

j'ai un problème au moment de récupérer les fichiers

un message d'erreur quelconque ?

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

madjeku · Answer

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

Ftp non interactif sous vb6

6 réponses

Votre réponse

Discussions similaires