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 !

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


Information sur la source

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é: 9 718 / 2 821

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

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

signaler à un administrateur
Commentaire de misterbux le 27/10/2002 10:22:47

que veut dire uploader et downloader?
merci!!

megadebutant

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

signaler à un administrateur
Commentaire de Remixgame le 27/10/2002 14:25:49

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

signaler à un administrateur
Commentaire de misterbux le 27/10/2002 18:52:11

merci pour le renseignement

signaler à un administrateur
Commentaire de TStorm le 26/12/2002 17:35:00

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

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

signaler à un administrateur
Commentaire de slayer le 16/02/2003 02:05:35

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

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

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

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

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

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

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

signaler à un administrateur
Commentaire de beeline le 06/08/2004 16:35:06

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

signaler à un administrateur
Commentaire de beeline le 06/08/2004 16:44:39

j'avai pa vu le zip ..

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

signaler à un administrateur
Commentaire de sylvanox le 01/06/2006 10:56:36

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

10/10 ;-)

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

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

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

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

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version

Photothèque Nouveau !



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
Temps d'éxécution de la page : 0,343 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é.