AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 11 21 06:04:37
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

ENVOYER DES FICHIERS SUR UN FTP (SANS OCX)


Information sur la source

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 : 13 004
Auteur : Alexandre Gauthier Site perso
Ecrire un message privé
Note :
6,83 / 10 - par 6 personnes
6,83 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (12)
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.
 

Commentaires et avis

signaler à un administrateur
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

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

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

signaler à un administrateur
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

signaler à un administrateur
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 -

signaler à un administrateur
Commentaire de Urgo le 01/02/2003 23:38:02

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

signaler à un administrateur
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"

signaler à un administrateur
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.

signaler à un administrateur
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

signaler à un administrateur
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 ;)

signaler à un administrateur
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 ?

signaler à un administrateur
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.

signaler à un administrateur
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

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Ecrire et envoyer un fichier texte sur mon FTP [ par Bixome ] Bonjour,J'ai commencer un logiciel qui permet à des artistes de s'inscrire et d'envoyer leurs musiques sur un serveur FTP. Pour envoyer le fichier MP3 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


Nos sponsors

Sondage...

CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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
Temps d'éxécution de la page : 0,374 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.