Ftp non interactif sous vb6 [Résolu]

Messages postés
4
Date d'inscription
jeudi 13 mai 2010
Statut
Membre
Dernière intervention
14 juin 2010
- - Dernière réponse : madjeku
Messages postés
4
Date d'inscription
jeudi 13 mai 2010
Statut
Membre
Dernière intervention
14 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!
Afficher la suite 

6 réponses

Meilleure réponse
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
22 août 2018
53
3
Merci
tentes ce genre de syntaxe :

ftp://login:password@host:port/folder/file

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 131 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
22 août 2018
53
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 131 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
22 août 2018
53
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 131 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Renfield
Messages postés
4
Date d'inscription
jeudi 13 mai 2010
Statut
Membre
Dernière intervention
14 juin 2010
0
Merci
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!
Commenter la réponse de madjeku
Messages postés
4
Date d'inscription
jeudi 13 mai 2010
Statut
Membre
Dernière intervention
14 juin 2010
0
Merci
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!")
Commenter la réponse de madjeku
Messages postés
4
Date d'inscription
jeudi 13 mai 2010
Statut
Membre
Dernière intervention
14 juin 2010
0
Merci
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
Commenter la réponse de madjeku