Sujet Précédent Sujet Suivant

ENVOYER DES FICHIERS SUR UN FTP (SANS OCX)

Naärdin - 25 juil. 2001 à 15:14
skibilidou Messages postés 10 Date d'inscription jeudi 4 juin 2009 Statut Membre Dernière intervention 5 juin 2010 - 6 juin 2010 à 18:41

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

skibilidou Messages postés 10 Date d'inscription jeudi 4 juin 2009 Statut Membre Dernière intervention 5 juin 2010
6 juin 2010 à 18:41

merci pr ton code zozo jte donne 10/10, vraiment utile ,c ce ki me mankai pr mon pti projet de keylogg

jacquemo Messages postés 7 Date d'inscription jeudi 2 septembre 2004 Statut Membre Dernière intervention 18 février 2010
18 févr. 2010 à 02:09

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 !

cs_zozo14 Messages postés 46 Date d'inscription jeudi 2 novembre 2006 Statut Membre Dernière intervention 5 juin 2010
10 nov. 2009 à 22:13

'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

rimas10 Messages postés 33 Date d'inscription mardi 14 octobre 2003 Statut Membre Dernière intervention 2 février 2009
5 mars 2009 à 15:17

ca marche pas pour moi je ne sais pourquoi ?!

Matyouz Messages postés 28 Date d'inscription dimanche 27 mars 2005 Statut Membre Dernière intervention 27 juillet 2011
18 févr. 2009 à 20:21

ça marche du feu de dieu ... !

adomserge Messages postés 1 Date d'inscription mardi 24 avril 2007 Statut Membre Dernière intervention 18 février 2009
18 févr. 2009 à 15:42

et pour les images ça marche ?

cs_CHPIC Messages postés 4 Date d'inscription vendredi 7 janvier 2005 Statut Membre Dernière intervention 14 octobre 2009
12 oct. 2008 à 15:31

On peut aussi ajouter ceci dans la ligne de commande " > " & "CRFTP.TXT"
CRFTP.TXT contient alors le résultat de la conection , il suffit ensuite d'exploiter les codes qui se trouvent dans ce fichier.
Salutations

Matyouz Messages postés 28 Date d'inscription dimanche 27 mars 2005 Statut Membre Dernière intervention 27 juillet 2011
22 sept. 2008 à 08:27

et bien moi, je trouve cette source FORMIDABLE ... vu qu'Inet est très instable et incapable d'envoyer des fichiers images par lot (à mojns qu'on me prouve le contarire) et Winsock qui est difficile à aborder pour un débutant, je trouve cette solution MAGNIFIQUE.

Merci.

JULIEN0 Messages postés 37 Date d'inscription jeudi 24 avril 2003 Statut Membre Dernière intervention 16 mai 2014 1
19 janv. 2007 à 10:53

je trouve ca assez dangereux d'exporter les informations du compte ftp dans un fichier externe.

la meme methode avec un textbox peut marcher ?

cs_Unreal Messages postés 89 Date d'inscription vendredi 20 décembre 2002 Statut Membre Dernière intervention 26 mars 2006
2 nov. 2005 à 11:39

Un conseil, a la fin du fichier ajoute quit:
Print #1, "quit"

sinon ftp reste ouvert et le fichier temp.txt est inaccesible
voila j'aime bien ce code merci ;)

nycoss Messages postés 86 Date d'inscription lundi 17 novembre 2003 Statut Membre Dernière intervention 9 mars 2006
30 avril 2005 à 01:23

utiliser le Shell de windows dans un programme VB n'est pas trés jolie, il vau mieu utiliser Inet

microalexx Messages postés 12 Date d'inscription lundi 30 juin 2003 Statut Membre Dernière intervention 9 juillet 2007
19 déc. 2003 à 22:19

hum...
ce qui serai pas mal c ke tu refasse ce code plutot intéréssant et ke tu nous colle l'integralité de celui-ci
avec le sub_nom_sub , les délcarations, ect..

pour un programmeur averti ca reste comprehensible, mais vu que nombre des lecteurs sont la pour apprendre, ca reste dur a comprendre :)

sur ce, merci.

cs_lataupeben Messages postés 232 Date d'inscription dimanche 19 octobre 2003 Statut Membre Dernière intervention 24 janvier 2006
1 nov. 2003 à 17:11

si j' ai tout compris chdir designe le dossier courant pour crée tenp.txt
mais moi j' ai une erreur "invalide outside procedure"

cs_Urgo Messages postés 780 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 avril 2009 1
1 févr. 2003 à 23:38

Moyen comme méthode...mais intéréssant

mclic Messages postés 14 Date d'inscription vendredi 6 septembre 2002 Statut Membre Dernière intervention 8 mars 2005
11 sept. 2002 à 17:02

salut comment faire pour envoyer un fichier "TXT" sur un "FTP" puis crée un dossier pour mettre le fichier "TXT" exemple: http://www.multimania.com/"lelogin"/allo/"FichierTXT"

et de recevoir les donnés du fichier "TXT" dans une textbox d'un prog vb.

merci de me repondre.
- mclic -

batlheureux Messages postés 5 Date d'inscription jeudi 19 octobre 2000 Statut Membre Dernière intervention 17 juin 2002
24 mai 2002 à 10:40

est-ce que tu connais un moyen de vérifier en vb si le transfert abien été effectué
merci

TheSaib Messages postés 2367 Date d'inscription mardi 17 avril 2001 Statut Membre Dernière intervention 26 décembre 2007 23
28 févr. 2002 à 11:45

c nul , c du bidouillage ca les gars ...

cs_LoupBlanc Messages postés 52 Date d'inscription lundi 28 janvier 2002 Statut Membre Dernière intervention 8 avril 2009
20 févr. 2002 à 10:52

Rom1, c que ta variable site de "site = Shell("ftp -n -s:filename", vbHide)" n'est pas déclarée, dim site as integer

Rom1
21 oct. 2001 à 00:58

J'ai l'erreur : "site : variable not defined"! des idees ?

Danger Prophet (Alexandre Gauthier)
29 juil. 2001 à 21:39

J'ai pouratnt tester le code et sa marche très bine sau que j'ai fait une petite erreur en haut.. c pas chrdir c'est CHDIR

DangerProphet (Alexandre Gauthier)
25 juil. 2001 à 17:13

yyoups!

Naärdin
25 juil. 2001 à 15:14

marche pas :

site = Shell("ftp -n -s:filename", vbHide)

c'est :

site = Shell("ftp -n -s:"+filename, vbHide)

T'as testé ton code?

Discussions similaires

probleme avec mscomm32.ocx

MSCOMM32.OCX

INSTALLER AUTOMATIQUEMENT MSCOMM32.OCX

Pb MSCOMM32.OCX

envoyer les sms

Votre réponse

Discussions similaires