Transfert fichier sur serveur

cs_antonio75 Messages postés 38 Date d'inscription mercredi 11 avril 2007 Statut Membre Dernière intervention 18 mai 2007 - 18 mai 2007 à 12:02
megblt Messages postés 85 Date d'inscription mercredi 8 septembre 2004 Statut Membre Dernière intervention 21 mai 2014 - 18 mai 2007 à 17:46
Bonjour a tous,

j'ai un probleme pour transferer un fichier sur un serveur. J'ai recupéré un bout de code qui était sensé le faire et ca fonctionne pas. Pourtant vb ne genere aucune erreur mais qd je vais vérifier aucun fichier sur mon serveur, voici le code :

Private Sub Transfert_FTP_Click()
Dim site As Integer

ChDir "C:"

Open "temp.txt" For Append As #1
Print #1, "open adresse du serveur"
Print #1, "USER nom-user"
Print #1, "passwd"

Print #1, "cd " + "/app/"
Print #1, "put C:\fichier1.xls"

Close #1

site = Shell("ftp -n -s:c:\temp.txt", vbHide)
End Sub

Si vous savez pourquoi ca marche pas, ca me dépannerai bien,

merci d'avance,

++, Antoine.

4 réponses

Big200148 Messages postés 149 Date d'inscription mardi 30 septembre 2003 Statut Membre Dernière intervention 23 juillet 2009
18 mai 2007 à 14:23
0
cs_antonio75 Messages postés 38 Date d'inscription mercredi 11 avril 2007 Statut Membre Dernière intervention 18 mai 2007
18 mai 2007 à 14:58
le truc c est que je fais pas du .net mais du VB6
0
Big200148 Messages postés 149 Date d'inscription mardi 30 septembre 2003 Statut Membre Dernière intervention 23 juillet 2009
18 mai 2007 à 15:09
A oui dsl j'avais pas fait attention
0
megblt Messages postés 85 Date d'inscription mercredi 8 septembre 2004 Statut Membre Dernière intervention 21 mai 2014
18 mai 2007 à 17:46
le plus simple c'est d'utiliser l'appli EZFTP.OCX


sur internet en free


 


A+


Yves
0
Rejoignez-nous