begin process at 2012 02 12 04:10:21
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Réseau & Internet

 > ENVOYER DES FICHIERS SUR UN FTP (SANS OCX)

ENVOYER DES FICHIERS SUR UN FTP (SANS OCX)


 Information sur la source

Note :
7,14 / 10 - par 7 personnes
7,14 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Réseau & Internet Classé sous :ftp, fichier, server, envoyer Niveau :Initié Date de création :25/07/2001 Date de mise à jour :20/04/2003 17:55:24 Vu :15 507

Auteur : Alexandre Gauthier

Ecrire un message privé
Site perso
Commentaire sur cette source (18)
Ajouter un commentaire et/ou une note

 Description

Voici le code qui vous permettera de mettre des fichiers (uploader) sur votre ftp sans utiliser aucun OCX. La methode est simple, il suffit d'appeller le ftp de windows.    

Source

  • ChDir "C:\"
  • Open "temp.txt" For Append As #1
  • Print #1, "open ftp.ifrance.com" 'Le serveur est par exemple ftp.ifrance.com
  • Print #1, "USER allo" 'Le nom d'utilisateur est allo
  • Print #1, "bonjour" 'Mot de passe (bonjour)
  • 'Disons que nous voulons uploader un fichier nomme Rouge.txt (se trouvant sur le C:) dans le dossier salut1 sur le ftp
  • Print #1, "cd " + "/salut1"
  • Print #1, "put c:\Rouge.txt"
  • Close #1
  • site = Shell("ftp -n -s:c:\temp.txt", vbHide)
  • 'Vous n'avez maintenant plus qu'à supprimer le fichier temporaire "temp.txt" soit par vous même ou par la commande KILL.
ChDir "C:\"

Open "temp.txt" For Append As #1
Print #1, "open ftp.ifrance.com" 'Le serveur est par exemple ftp.ifrance.com
Print #1, "USER allo" 'Le nom d'utilisateur est allo
Print #1, "bonjour" 'Mot de passe (bonjour)

'Disons que nous voulons uploader un fichier nomme Rouge.txt (se trouvant sur le C:) dans le dossier salut1 sur le ftp

Print #1, "cd " + "/salut1"
Print #1, "put c:\Rouge.txt"

Close #1
      

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

'Vous n'avez maintenant plus qu'à supprimer le fichier temporaire "temp.txt" soit par vous même ou par la commande KILL.

 Conclusion

Sans module et sans OCX.


 Sources du même auteur

Source avec Zip Source avec une capture QUAKE 3 CHANGE MODELS HEAD!
Source avec Zip Source avec une capture HIGH VIEW =- VERSION BETA 2.1
CENTRER DES FEUILLE (CENTERFORM)

 Sources de la même categorie

Source avec Zip Source avec une capture GESTIONNAIRE DE TÉLÉCHARGEMENT, AVEC REPRISE ET MULTITHREADI... par Madx23
Source avec Zip Source avec une capture CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta
Source avec Zip Source avec une capture DICTIONAIRE TEXT/AUDIO/VISUELLE ANGLAIS AVEC WEBBROWSER CONT... par majnounmajda
Source avec Zip Source .NET (Dotnet) NSLOOKUP EN VB.NET OU COMMENT FAIRE UNE REQÛETE DNS EN PRÉCI... par ShareVB
Source avec Zip Source avec une capture MINI SEVEUR HTTP AVEC INTERFACE GRAPHIQUE ET IMPLÉMENTATIONS... par lemout

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture UPLOAD HTTP- PHP par christo16
Source avec Zip Source avec une capture CLIENT FTP PROFESSIONEL ET ÉNORME (NOUVEAU VERSION 5!) par alpha03
Source avec Zip Source avec une capture TRANSFERT DE FICHIERS + EXPLORATION D'UN PC DISTANT (WINSOCK... par bouha_esstt
Source avec Zip OCX DE TRANSFERT, ENVOYER UN FICHIER par Metos62
Source avec Zip TÉLÉCHARGER UN FICHIER D' UN SERVEUR FTP par vbGuy

Commentaires et avis

Commentaire de LoupBlanc le 20/02/2002 10:52:17

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

Commentaire de TheSaib le 28/02/2002 11:45:46 administrateur CS

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

Commentaire de batlheureux le 24/05/2002 10:40:19

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

Commentaire de mclic le 11/09/2002 17:02:52

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 -

Commentaire de Urgo le 01/02/2003 23:38:02

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

Commentaire de lataupeben le 01/11/2003 17:11:41

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

Commentaire de microalexx le 19/12/2003 22:19:06

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.

Commentaire de nycoss le 30/04/2005 01:23:17

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

Commentaire de Unreal le 02/11/2005 11:39:58

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 ;)

Commentaire de JULIEN0 le 19/01/2007 10:53:21

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

la meme methode avec un textbox peut marcher ?

Commentaire de Matyouz le 22/09/2008 08:27: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.

Commentaire de CHPIC le 12/10/2008 15:31:13

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

Commentaire de adomserge le 18/02/2009 15:42:00

et pour les images ça marche ?

Commentaire de Matyouz le 18/02/2009 20:21:54

ça marche du feu de dieu ... !

Commentaire de rimas10 le 05/03/2009 15:17:57

ca marche pas pour moi je ne sais pourquoi ?!

Commentaire de zozo14 le 10/11/2009 22:13:18

'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

Commentaire de jacquemo le 18/02/2010 02:09:45 9/10

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 !

Commentaire de skibilidou le 06/06/2010 18:41:45

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

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

comment envoyer un fichier sur un espace ftp ? [ par Tom ] comment envoyer un fichier sur un espace ftp ?sachant que le nom du fichier est invariable tout comme le nom de l'espace ftp.Le fichier en question es ENVOYER des FICHIER sur un SERVEUR (non FTP) [ par noisy ] Je dois envoyer des fichiers sur un serveur d'archivage (dont je connais l'IP)Comment faire? FTP vers un autre FTP [ par dragon ] J'ai déjà un programme ftp qui faisait ça, je sais pas comment on pourrait le reproduier en VBenvoyer dasn un ftp un fichier qui est dans un autre ftp Solution pour envoyer un fichier sur un ftp... [ par Kevergeek ] Pour tout ceux qui se galère et qui n'arrive pas à envoyer un fichier sur un ftp par la fonction Inet :ajouté :- Command1- Inet1 (composant "Microsoft Envoyer un fichier en binaire sur FTP [ par Alexandre Gauthier ] Lorsque j'envoie un fichier sur mon ftp avec la command inet1, le fichier apprait bien sur le serveur mais sa taille= 0 octets et impossible de l'ouvr envoyer un fichier sur un ftp [ par bryce ] Bonjour,est ce que qq'un sait comment faire pour envoyer un fichier texte sur un ftp avec la méthode inet1.execute, "put fichier.txt /fichier.txt"Je p Envoyer un fichier par FTP [ par EKweel ] Salut les gars, j'aimerais savoir comment on fait pour envoyer un fichier par le protocole FTP. En fait mon prog c'est le serveur et je veux envoyer u envoi ftp de plusieur fichiers [ par sylverspoon ] Salut, Moin appli doit envoyer des fichier par ftp sur un serveur.Je procède avec INET et je n'ai pas de pb pour envoyer 1 fichier. Par contre lorsqu envoyer un fichier txt sur FTP via MSInet [ par EvilGost ] Bonjour,j'ai beau chercher et je ne trouve pas de code source permettant d'envoyer un fichier txt via MSInet (le composant Microsoft Internet Transfer envoyer un fichier htm par mail ou sur ftp [ par chico200987 ] Salut j'ai repris le code d'un keylog et je l'ai un peu modifier pour mon propre usage mais maintenant que le fichier htm est créé, je voudr


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,624 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales