begin process at 2010 02 10 01:35:15
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Réseau & Internet

 > FTP UPLOAD ET DOWNLOAD QUI MARCHE , UTILISATION DE INET , FICHIER ZIP !

FTP UPLOAD ET DOWNLOAD QUI MARCHE , UTILISATION DE INET , FICHIER ZIP !


 Information sur la source

Note :
9 / 10 - par 7 personnes
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Réseau & Internet Niveau :Débutant Date de création :26/10/2002 Date de mise à jour :27/10/2002 14:21:18 Vu / téléchargé :10 260 / 2 897

Auteur : Remixgame

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

 Description

Donc Voila j'ai fait le tour des sources pour Uploader et Downloader des fichiers , mais vraiment il n'y a rien !
Des demis codes !!! Rien de plus rien de moins

Je ne vais pas vous mentir je me suis inspiré de la plupart des sources , 5 ou 6 (qui ne marchent pas pour en faire 1 qui fonctionne )
Cette source est très simple à utiliser !
Et j'espere servira au débutant ....

Source

  • '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
  • ' Dans le Zip exemple + utilisation
  • '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
  • -Des textboxs
  • -Un control (microsoft internet transfert control 6 ) INET
  • -Deux petits boutons !
  • '------------------------------------------------------------------
  • -le code à utiliser pour uploader est celui ci
  • With Inet1
  • .URL = ("ftp://" & Text2 & ":" & Text3 & "@" & Text1)
  • .Execute , ("PUT " & Text4 & " " & Text5)
  • End With
  • '------------------------------------------------------------------
  • -le code à utiliser pour downloader est celui ci
  • With Inet1
  • .URL = ("ftp://" & Text2 & ":" & Text3 & "@" & Text1)
  • .Execute , ("GET " & Text6 & " " & Text7)
  • End With
  • '--------------------------------------------------------------------
  • Vous remarquerez que Url
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
'               Dans le Zip exemple + utilisation 
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
-Des textboxs 
-Un control (microsoft internet transfert control 6 ) INET
-Deux petits boutons !
'------------------------------------------------------------------
-le code à utiliser pour uploader est celui ci

With Inet1
   .URL = ("ftp://" & Text2 & ":" & Text3 & "@" & Text1)
       .Execute , ("PUT " & Text4 & " " & Text5)
End With

'------------------------------------------------------------------
-le code à utiliser pour downloader est celui ci

With Inet1
     .URL = ("ftp://" & Text2 & ":" & Text3 & "@" & Text1)
        .Execute , ("GET " & Text6 & " " & Text7)
End With

'--------------------------------------------------------------------
Vous remarquerez que Url 
 

 Conclusion

Voila c tout !!
Excusez moi je suis nul en orthographe !

 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 avec une capture LOGICIEL DE GESTION DE TEMPS SOUS XP (UNIQUEMENT)
Source avec Zip RECHERCHER LES REPERTOIRES SPECIAUX ( ENTIEREMENT EXPLIQUÉ)

 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

Commentaires et avis

Commentaire de skyghis le 27/10/2002 02:09:01

le code à utiliser pour uploader et celui ci

oula cela fai mal O yeux !!!!

uploader EST celui ci plz !!!!

sinon, code simple ki poura surement aider les débutants =)
perso, pas de Inet1 pour moi, Winsock powa =P

Commentaire de misterbux le 27/10/2002 10:22:47

que veut dire uploader et downloader?
merci!!

megadebutant

Commentaire de babeuk le 27/10/2002 10:34:55

c'est une balgue ?!

sinon downloader=télécharger (transfert du serveur au pc) et uploader c'est l'inverse (transfert du pc au serveur)

Commentaire de Remixgame le 27/10/2002 14:25:49

Attention :
Upload PC------> SERVEUR
Download SERVEUR---------->PC

Commentaire de misterbux le 27/10/2002 18:52:11

merci pour le renseignement

Commentaire de TStorm le 26/12/2002 17:35:00

franchement merci bien car ça marche vraiment bien chez moi :)

Commentaire de toniou le 10/02/2003 00:47:40

je ne compren po, j ariv a uploader mai po a downloader!!!!! tu peu po m aider??? merci d avance. G windows XP ca a avoir???

Commentaire de slayer le 16/02/2003 02:05:35

c'est nickel pour les fichiers mais pour un dossier complets on fait comment ??

Commentaire de diablotin le 05/05/2003 00:04:16

sa marche mais il maque la progression en cour mais je vais y travailler mais enfin une source de ce genre qui marche et j'en ais asseyer

Commentaire de poof65 le 05/10/2003 17:11:48

j'ai pas encore essayé mé bon si ca marche alors c'est un bon petit code assez simple a utiliser (utile dans certains ca).
Mais bon pour l'instant je cherche un code capable de controler le debit d'upload ou alors de calculer le debit.

Commentaire de SuperBouly le 04/02/2004 13:51:21

Très bien et surtout très simple.
Petit inconvénient, Lorsque j'active le partage de connexion Internet, ça ne marche plus , même en changeant la propriété inet1.AccessType
Est-ce que qqn s'est penché sur le problème ?
Pour la progressBar, on se débrouillera, t'inquiète...
SB

Commentaire de beeline le 06/08/2004 15:32:37

pourè au moin dire ce que represente chaque textbox, il me semble que c'est le minimum ..

Commentaire de beeline le 06/08/2004 15:32:40

pourè au moin dire ce que represente chaque textbox, il me semble que c'est le minimum ..

Commentaire de beeline le 06/08/2004 15:43:24

With Inet1
     .URL = ("ftp://" & Text2 & ":" & Text3 & "@" & Text1)
        .Execute , ("GET " & Text6 & " " & Text7)
End With

text2 => nom de l'user ( anonyme qlq a une idée ? )
text3 => password de l'user
text1 => nom du serveur ( ftp.bidulechouete.fr )
text6 => nom du fichier a recupere
text7 => aucune idée ( mais je suspecte un "HTTP 1.1/1" )

Commentaire de beeline le 06/08/2004 16:35:06

heu nom escuser moi ...
text7 sa sarai plutot le fichier de destinnation

Commentaire de beeline le 06/08/2004 16:44:39

j'avai pa vu le zip ..

Commentaire de kiloubilou le 04/04/2006 19:41:54

salut je viens d'essayer ton code pour tranferer plusieurs fichiers sur un serveur mais lors de l'execution j'ai cette erreur:
erreur 35764 execute toujours la derniere requete. voici mon code

Public Sub send( _
Inet1 As Inet, _
url As String, _
user As String, _
password As String, _
source As String, _
destination As String _
)
With Inet1
     .url = url
     .UserName = user
     .password = password
     .Execute , "PUT " & source & " \" & destination
End With
End Sub

Private Sub BtnPlacer_Click()
Dim destination As String
Dim Origine As String
Dim i As Integer
login = GestionDonnées.RécupérationCompteUtilisateur()
pass = GestionDonnées.RécupérationMotDePasse()
ftp = GestionDonnées.RécupérationAdresseFTP()
'pour chaque fichier transferer sur ftp
   For i = 0 To File1.ListCount - 1
     Origine = File1.Path & "\" & File1.List(i)
     destination = File1.List(i)
     Call send(Inet1, ftp, login, pass, Origine, destination)
    Next i
End Sub

la methode execute est elle approprié pour transferer plusieurs fichiers?

Commentaire de sylvanox le 01/06/2006 10:56:36

Merci c'est pile ce que je cherchais ! Ca marche en plus :)

10/10 ;-)

Commentaire de minirc le 16/08/2006 20:17:40

salut , le code marche bien mais apres le transfert sur le serveur il me donne un fichier de taille 0ko peux tu me dire pourquoi ? et comment faire pour qu'il ait la taille reel du fichier?
merci d avance

Commentaire de akella le 02/03/2007 12:35:43

moi je ne sais pas pourquoi, mais sa me met l'erreur 35764 : unable to connect... pourtant tout est corretce, dans la list box, sa inscrit vérifier si les fichiers existent vice-versa, mais les fichiers existent réellement.

Commentaire de pulpul74 le 28/11/2007 14:27:18 10/10

Moi je dit merci 1000 fois, c'est exactement ce que je voulais, j'en avait essayé plein et c'est le seul qui fonctionne rééllement! merci
A noté que pour le dossier du ftp, le signe de la racine n'est pas "\" mais "/". DOnc pour uploader un fichier par exemple, il faut noté dans la destination "/nomdufichier"

Commentaire de ym_trainz le 06/12/2008 10:28:40 10/10

Super RemixGame !

J'ai ajouté un Inet1.Cancel à la fin de chaque UL / DL car si on ne réinitialise pas le inet, impossible de UL / DL à nouveau.

Donc, on peut insérer ce Inet1.Cancel dès que (.state)"Transfert : OK"
et ajouter un bouton pour réinitialiser.

En tous cas, simple et efface, merci ! 10

Cordialement,
ym_trainz

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

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 : 1,778 sec (3)

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