begin process at 2012 02 16 18:44:15
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Réseau & Internet

 > TRANSFERT DE FICHIER EN FTP AVEC VB.NET

TRANSFERT DE FICHIER EN FTP AVEC VB.NET


 Information sur la source

Note :
8,44 / 10 - par 9 personnes
8,44 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Réseau & Internet Source .NET ( DotNet ) Niveau :Débutant Date de création :15/01/2003 Date de mise à jour :15/04/2004 18:41:02 Vu / téléchargé :35 571 / 6 242
Auteur : michelsto

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

 Description

Toutes les classe VB.NET nécessaire pour le transfert et fichiers via FTP. Un petit programme exemple, montre déjà le plus simplement possible comment faire un Upload et un Download. Voir la copie du code si dessous. Dans l'exemple le serveur, user et password dont fictif.

Source

  • ' Paramètrage de la connexin
  • Client.Hostname = "ftp.yahoo.com"
  • Client.Username = "michel"
  • Client.Password = "password"
  • ' Connexion au serveur
  • Client.Connect()
  • ' Vérification si bien connecté
  • If Not Client.IsConnected Then
  • msgBox("Error")
  • Else
  • ' Download du fichier
  • If Client.DownloadFile("index.htm", "c:\tmp1\index.htm") Then
  • MsgBox("OK")
  • Else
  • MsgBox("Error")
  • End If
  • ' Ipload du fichier sur un autre nom
  • If Client.UploadFile("c:\tmp1\index.htm", "test.htm") Then
  • MsgBox("OK")
  • Else
  • MsgBox("Error")
  • End If
  • End If
' Paramètrage de la connexin
        Client.Hostname = "ftp.yahoo.com"
        Client.Username = "michel"
        Client.Password = "password"

        ' Connexion au serveur
        Client.Connect()

        ' Vérification si bien connecté
        If Not Client.IsConnected Then
            msgBox("Error")
        Else
            ' Download du fichier
            If Client.DownloadFile("index.htm", "c:\tmp1\index.htm") Then
                MsgBox("OK")
            Else
                MsgBox("Error")
            End If
            ' Ipload du fichier sur un autre nom
            If Client.UploadFile("c:\tmp1\index.htm", "test.htm") Then
                MsgBox("OK")
            Else
                MsgBox("Error")
            End If
        End If

 Conclusion

N'hésité pas à me faire vos remarques.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source .NET (Dotnet) UNE CLASSE POUR TRAVAILLER AVEC OLDDB (ACCESS) ET OLEDB (AS...
Source .NET (Dotnet) PERMET DE REFORMATER UN CHAMP TEXTE SUR UNE LARGEUR DE PAGE ...
Source .NET (Dotnet) CONVERTION DE HH:MM EN SECONDE ET INVERSE
Source .NET (Dotnet) CONVERTION DE DATE J/M/AAAA EN AAAAMMJJ ET HEURE H:M EN HHMM
Source .NET (Dotnet) DOUBLAGE DES SIMPLE QUOTE ' POUR LES CHAMPS SQL
Toutes les sources de michelsto

 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
Toutes les sources de la catégorie Réseau & Internet

Commentaires et avis

Commentaire de hvb le 15/01/2003 17:23:02

encore un truc à regarder ce soir (le code que tu as posté sur la page, est il reelement utile de le laisser vu qu'il y

Commentaire de hvb le 15/01/2003 17:23:10

encore un truc à regarder ce soir (le code que tu as posté sur la page, est il reelement utile de le laisser vu qu'il y a le zip? vu que seul, il n'a pas grand interet....

Commentaire de michelsto le 15/01/2003 17:27:31

Je trouve cet exemple parlant. Pour montrer que l'utilisation des classe ne nécessite pas de codes fastidieux.

Commentaire de chrisnet le 22/03/2003 11:52:49

Salut a tous,
Je ne comprend pas pourquoi lorsque je telecharge un fichier, il est sauvegarde vide sur mon disque (free est mon hebergeur).
Merci

Commentaire de stranix le 22/04/2003 15:14:37

Ce petit client ftp est vraiment génial.
J'ai cependant 2 problèmes: lorsque j'envoie un fichier avec un caractère accentué, il me le remplace par des caractères incohérents et si la connexion coupe en plein transfert de fichier, le programme plante... comment faire pour éviter ces 2 problèmes ?

Gilles.

Commentaire de stranix le 14/05/2003 09:09:21

Bon programme ftp, le probleme des accents a été résolu en utilisant l'encodage UTF8. Mais il reste malgré tout le problème du plantage de l'appli lorsque la connexion réseau coupe au beau milieu d'un téléchargement... je bute sur ce problème...

Commentaire de stranix le 16/05/2003 13:26:55

Il y a donc personne sur ce site pour répondre à ma question ??????

Commentaire de JTR le 28/05/2004 17:12:36

Euuuuu ...
Est-ce que la fonctionnalité GetDirectoryListing est bien implémentée ?
Parce que dès que j'essaye de l'utiliser il me fait une exception ...
Reférence nulle ou un truc du genre :(
Il me retourne un tableau de FileItem je crois ...
J'essaye de faire un "for each" dessu mais ca marche poa :(
Je fais p-e une erreur de code, je suis plus penché sur le C# moi maintenant :(
Mais je crois que l'erreur se fait dès que j'appelle la méthode GetDirectoryListing() ...
Est-ce qu'il faut définir le Workdir avant ? si oui, comment ?  g déjà essayé et celà ne semble pas fonctionner :(
Merci d'avance.

Commentaire de michelsto le 31/05/2004 15:13:15

Je ne sais pas vous répondre comme ca. J'ai globalisé du code glané à gauche et à droite avec du mien et voilà. Pour mon utilisation ca fonctionne, mais je n'ai pas encore tout testé.

Pour le plantage, j'ai u le même problème et en fait il reste bloqué en attente d'uné réponse. Et je croix que le délais d'attente est infini. Mais je ne suis plus très sûre. Fait peut-être un débug pour voir l'endroit ou il reste bloqué, mais de toutes façons quand j'ai un moment je regarde.

Désolé de ne pas avoir répondu j'était submergé par d'autres chose.

Mich.

Commentaire de capuccino_fr le 22/06/2004 10:37:05

moi pareil: le getdirectorylisting me renvoie un listview.fileitem, que je ne peux pas utiliser. Comment faire?
Sinon ca marche pas trop mal... et j'en ai cherché des trucs de ce genre

@+
Ben

Commentaire de KGO44 le 01/03/2005 10:35:04

j'ai fais plusieurs tests pour utiliser getdirectorylisting sans succès, à chaque fois j'ai une liste vide.

Sinon ça marche très bien.

Kat

Commentaire de Halobox le 18/04/2005 22:02:45

Personne arrive a avoir la liste des fichiers ?

Commentaire de jullouyot_46 le 10/10/2005 12:03:39

Bonjour,

- J'ai le même problème que chrisnet: (je suis pour l'instant en réseau local) quand je télécharge index.htm, il est sauvegardé vide sur mon poste.
- l'appli me dit que l'upload a fonctionné, mais pas de traces de test.htm...

Avez vous trouvé la cause de ce soucis ?
merci

Commentaire de jullouyot_46 le 10/10/2005 16:57:19

ok, j'ai fait une petite boulette: oubli d'autoriser sur mon serveur ftp le download et le upload pour mon utilisateur ... oups.

Avez vous des pistes pour le cryptage des données transférées ?

Commentaire de jullouyot_46 le 10/10/2005 16:57:39

ok, j'ai fait une petite boulette: oubli d'autoriser sur mon serveur ftp le download et le upload pour mon utilisateur ... oups.

Avez vous des pistes pour le cryptage des données transférées ?

Commentaire de winny68 le 15/01/2006 18:51:27

le code fonctionne très bien pour les images, je n'arrive pas à la faire fonctionner pour des archives .zip ou d'autre documents

Commentaire de OneHacker le 18/02/2006 17:00:00

C'est bien joli tout ca mais encore faut-il que Clien signifie qelquechose !

Commentaire de ronaldinho99 le 22/03/2006 11:24:03

Est-il possible d'eviter le freeze des fenetres lorsque l'apli est en phase de telechargement?

Commentaire de JTR le 22/03/2006 13:04:44

C'est possible en effet ...
Tu peux modifier le code source pour lancer la portion de code qui fige dans un thread, ca règlera le problème je pense ;)

Commentaire de TMONOD le 25/05/2006 22:26:42

- J'implémente ces classes tres pratiques dans un projet que je vais bientôt présenter sur ce site.

Remarques :
- Si vous compilez sous la version .net vous aurez 2 warnings :
à la compilation de la classe Ftpconnection.vb
il faut remplacer les 2 occurences de la fonction Resolve(...) qui est obsolète par la fonction gethostentry(...).
- La remarque du thread est judicieuse...je vais la mettre en pratique tout de suite. Venez voir ma source dés qu'elle sera dispo (dans qq jours) je pense que ca peu dépanner certains d'entre nous !
A+

Commentaire de DocPhiphi le 05/11/2006 13:27:16

Heuh... pour STranix. Tu fais comment pour l'utf8. J'ai pas trouvé, et j'ai le pb.

Commentaire de DocPhiphi le 05/11/2006 18:07:35

précision, mes sites osnt chez Free...

Commentaire de ronaldinho99 le 07/11/2006 00:44:57

Pour infos j'ai essayer a l'epoque de faire fonctionner les threads. Mais le freeze etait toujours présent.

J'ai résolu ce probleme par l'intermediare de la fonction :

System.Windows.Forms.Application.DoEvents()

a placer avant le transfert.... :D

Commentaire de OneHacker le 07/11/2006 16:24:31

T'aurai pu préciser au départ et me dire que c'était du VB.Net 2005 quand j'ai posé une question !

Redman

Commentaire de simki le 10/12/2006 19:39:54

bonjour, j'essaie de créer une application d'exange de fichiers avec Visual basic Express 2005 mais le problème c'est que je ne peut pas faire une connection Client/Serveur.
plus clairement je ne sais pas comment le faire.
Voilà alors si quelqu'un peut m'aider ça sera trés gentille de sa part.
SIMKI

Commentaire de alanu le 27/02/2007 13:13:46

Pour le problème du GetListDirectory() qui renvoie Nothing , c'est parce qu'il faut avant faire un GetList() qui renverra True ou False (True si tout s'est bien passé)
Ensuite on peut utiliser GetListDirectory()

[...]
ftpclient.GetList()
Dim listes() AS FilteItem = ftpclient.GetDirectoryListing()
[...]

listes(0).FileTitle renverra un String correspondant au nom du fichier 0 listé...

Pour lister tous les fichiers :
for i As Int32=0 to 10
   System.Diagnostics.WriteLine(listes(0).FileTitle)
next

:)

Commentaire de tiwanou le 25/11/2007 19:27:47

Bravo merci génial magnifique
Enfin un code qui MARCHE
Quelle galère avec VB 2008
Bon maintenant voyons voir ce code !
MERCI ENCORE

Commentaire de Le newbie le 15/04/2008 10:18:19

Bonjour,

Je sais que le poste commence à dater mais je cherche à utiliser le protocole FTP avec les classes ci-dessus. Je suis en VB2008 (Framework 3.5) et la classe cNetwork me retourne 3 erreurs.
Il ne reconnaît pas le system.management.managementObejctsearcher, managementObjectCollection et managementObject.

Est ce qu'il  a quelqu'un qui saurait comment faire ?

Merci d'avance.

Commentaire de dsigmoun le 15/10/2008 15:33:05


for i As Int32=0 to 10
   System.Diagnostics.WriteLine(listes(0).FileTitle)
next


Visual Studio 2008 me retourne "WriteLine" n'est pas un membre de "Diagnostic".

Qu'est-ce que je dois mettre pour lister les fichiers ?
Merci d'avance pour votre aide,

Commentaire de dsigmoun le 24/10/2008 15:44:57

Est-il possible d'avoir un retour sur la taille du fichier en téléchargement ainsi que l'information de ce qui a déjà été téléchargé ?
exemple : 1Mo / 15Mo

Merci,

Commentaire de mstassenp le 25/10/2008 20:05:35

Bonjour, je m'inspire fortement de cette source mais je bloque sur la possibilité de faire un "append". Je voudrais pouvoir alimenter un journal des connexions sur le serveur à partir des différents pc qui tournent avec mon programme. Merci d'avance.
Michel.

Commentaire de michelsto le 26/10/2008 11:46:56

Bonjour à  tous, Je suis vraiment désolé de ne plus pouvoir vous aider, j'ai laissé tomber complètement VB et je serais incapable de vous aider.

Commentaire de dsigmoun le 27/10/2008 12:36:47

Pour ceux que cela interresse, voici la solution pour récupérer ce qui a déjà été téléchargé :
Point de départ existance d'un label43 dans la form3

Allez dans le fichier dataconnection.vb
Dans la partie Public Sub ReceiveFromSocket()
Dim valeur As Integer
.
.
.
If Ret > 0 Then
                    If m_DownloadToFile Then
                        System.Windows.Forms.Application.DoEvents()
                        m_FileStream.Write(Buffer, 0, Ret)
                    Else
                        m_Data = m_Data + ASCII.GetString(Buffer, 0, Ret)
                    End If
                    System.Windows.Forms.Application.DoEvents()
                    valeur = CInt(m_TransferredBytes / 1024)
                    Form3.Label43.Text = CStr(valeur) & " Ko / "
                    m_TransferredBytes = m_TransferredBytes + Ret
                    RaiseEvent DataReceived(Ret)
.
.
.
Il manque encore la partie informant de la taille du fichier en cours de téléchargement.

Commentaire de dsigmoun le 28/10/2008 17:33:39

Quelqu'un sait-il comment annuler un transfert en cours.
Lorsque j'utilise client.disconnect() j'ai la fenêtre qui freeze.

Commentaire de Maneavel le 16/12/2008 06:35:24 10/10

Très bon code.

Commentaire de clintopower le 08/01/2010 20:45:42 10/10

Une autre solution pour le "freeze" est d'ajouter cette ligne dans la fonction WaitForResponse du fichier FtpConnection.vb: clientSocket.ReceiveTimeout = (temps en millisecondes) AVANT la ligne suivante: retBytes = clientSocket.Receive(tempBuffer)

Ainsi, si la connexion se perd, le transfert échouera et le message "Error" apparaîtra après le temps spécifié en millisecondes.

Commentaire de clintopower le 08/01/2010 21:40:25

Il faut également remplacer la ligne suivante de la fonction SendToSocket du fichier DataConnection.vb:
   theSocket = m_DataSocket.Accept()
par le bloc suivant:
   If m_DataSocket.Poll(100, SelectMode.SelectRead) = True Then  'Vérifie si la connexion est disponible
       theSocket = m_DataSocket.Accept()
   End If

Ceci dans le but de gérer tous les cas de perte de connexion (et surtout les différents moments de la perte de connexion).

Avec ces 2 modifications, toutes les pertes de connexion ont été gérées par l'application jusqu'à présent.      

Commentaire de flakt le 14/06/2010 18:43:46 8/10

bonjour a tous !!

j'ai une question sur le code de michelsto, je voulais savoir si se code et exploitable en visual basic 2008  car je voulais l'utilisé pour bien comprendre le fonctionnement mais le ( Client ) n'est pas déclaré et je bloque dessus ... si quelqu'un a une solution ^^

un jolie 9/10 je trouve le code claire et facile a comprendre ^^

Commentaire de Myside le 24/11/2010 21:53:17 10/10

Jai chercher durant un bon lapse de temps avant de trouver quelquechose de fonctionnel et d'aussi clair. (VB.net express 2008) Apres du temps a me battre avec "wininet.dll" et ses fonction sous Vb.net. Je peux dire que ce code est efficace et apprécié.

Commentaire de kkZ le 23/04/2011 11:19:44 9/10

juste un souci
parfois (et je dis bien parfois), lors d'un upload, le transfert se bloque sur un code FTP 150 (150 Opening data channel for file transfer. sous FZ Server Win32), plus de transfert, 0b/s

A pas trouver le pourquoi actuellement, si kk a la soluce, je prend.

Merci
Joris

Commentaire de KeepCool37 le 28/10/2011 11:52:37

Bonjour,

Je suis tombé sur ce code trés intéressant.
Mais lorsque je l'utilise, le transfert de fichier se solde par des fichiers vident sur mon disque local.

Quelqu'un a-t-il une solution ?

Merci d'avance

Commentaire de KeepCool37 le 28/10/2011 12:28:17 5/10

Bonjour,

J'ai le même soucis que KKZ ! Sauf que moi c'est tout le temps !

Une idée ?

Commentaire de KeepCool37 le 28/10/2011 12:39:30

En fait, ça fonctionne bien !

J'avais imbriqué mon changement de répertoire distant dans l'évènement de connexion.  

En mettant un debug dans l'évènement "ReceivedReply", j'ai pu interprêter le comportement du serveur et trouver le problème.

En espérant que ça vous aide.
Trés bon code sinon

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Happy Bright Landscape WIth ButterfliesPhoto Beautiful woman in a bikini meditating on the beach
Photo Bright Beautiful Daisy and Grass Field 

Visiter la 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,546 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)