begin process at 2010 02 10 03:56:50
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
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 :
6,83 / 10 - par 6 personnes
6,83 / 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 :14 297
Auteur : Alexandre Gauthier

Ecrire un message privé
Site perso
Commentaire sur cette source (16)
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)
Toutes les sources de Alexandre Gauthier

 Sources de la même categorie

Source avec Zip Source avec une capture UPLOAD FTP VB 6 par Onin42
Source avec Zip Source avec une capture Source .NET (Dotnet) FAVORIS URL par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) DEVSSH CLIENT SFTP/SSH par iblsysteme
Source avec Zip Source avec une capture CONNEXION RÉSEAU par ABUMAI
Source avec Zip CSOCKET - REMPLACEZ WINSOCK PAR LA VERSION 2 DES API par Renfield
Toutes les sources de la catégorie Réseau & Internet

 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

 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...

Comparez les prix


iPod touch 8Go - 2ème génération
Entre 189€ et 224€

Visiter le guide achat

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
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,764 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)