ENVOYER DES FICHIERS SUR UN FTP (SANS OCX)

-
Messages postés
10
Date d'inscription
jeudi 4 juin 2009
Statut
Membre
Dernière intervention
5 juin 2010
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/1556-envoyer-des-fichiers-sur-un-ftp-sans-ocx

Messages postés
10
Date d'inscription
jeudi 4 juin 2009
Statut
Membre
Dernière intervention
5 juin 2010

merci pr ton code zozo jte donne 10/10, vraiment utile ,c ce ki me mankai pr mon pti projet de keylogg
Messages postés
7
Date d'inscription
jeudi 2 septembre 2004
Statut
Membre
Dernière intervention
18 février 2010

C'est une methode tres simple et robuste. On maitrise ce qui se passe. Bonne idee.

Il y a un petit probleme pour les FTP de gros fichiers : la session de commande a tendence a se fermer vite. Sous xp, je n'arrive pas a envoyer des gros fichiers.

POur resoudre, c'est simple, au lien de SHELL"ftp ...."
faire shell "cmd /c ftp ...."

pour savoir quand c'est fini on peut utiliser la sub SHELLWAIT decrite sur ce site.

Bravo a Alxandre !
Messages postés
46
Date d'inscription
jeudi 2 novembre 2006
Statut
Membre
Dernière intervention
5 juin 2010

'VB propose une solution sans OCX et trés simple
'à redéfinir selon votre site Ftp et votre login
Dim user = "..."
Dim pass = "..."
Dim fichlocal = "c:/essai.jpg"
Dim fichftp = "ftp://votreserveur/dossier1/dossier2/essai.jpg"
'upload
try
My.Computer.Network.UploadFile(fichlocal, fichftp, user, pass)
catch ex as exception
msgbox(ex.message)
end try

'download
My.Computer.Network.DownloadFile(fichftp, fichlocal, user, pass)

'les try permettent de récuperer l'erreur éventuelle
Messages postés
33
Date d'inscription
mardi 14 octobre 2003
Statut
Membre
Dernière intervention
2 février 2009

ca marche pas pour moi je ne sais pourquoi ?!
Messages postés
28
Date d'inscription
dimanche 27 mars 2005
Statut
Membre
Dernière intervention
27 juillet 2011

ça marche du feu de dieu ... !
Afficher les 22 commentaires