Upload FTP

Quelqu'un pourrait me dire comment uploader un fichier simplement par FTP ???
Tout ce que j'ai trouvé sur VBFrance.com ne marche pas correctement ou est 100 fois trop compliqué pour un simple envoi (à se prendre la tête)...
Je prends n'importe quelle solution tant qu'elle reste simple (ocx, api, ...).

Laissez tomber, je viens de trouver un truc qui marche bien :

Private Sub Form_Load()
With Inet1
.AccessType = icUseDefault
.URL = "ftp://ftpperso.free.fr"
.UserName = "MonPseudo"
.Password = "MonPassword"
'.RequestTimeout = 40
.Execute , "PUT MonFichierDestination.htm MonFichierSource.htm"
Do While Inet1.StillExecuting
DoEvents
Loop
.Execute , "CLOSE"
End With
End Sub

Salut!
ce procédé m'intéresse fortement!
Quelqu'un pourrait me dire quel composant il faut afficher? (Je ne trouve pas inet sur Mon visual basic).

Merci beaucoup!!!
Gab


-------------------------------
Réponse au message :
-------------------------------

Laissez tomber, je viens de trouver un truc qui marche bien :

Private Sub Form_Load()
With Inet1
.AccessType = icUseDefault
.URL = "ftp://ftpperso.free.fr"
.UserName = "MonPseudo"
.Password = "MonPassword"
'.RequestTimeout = 40
.Execute , "PUT MonFichierDestination.htm MonFichierSource.htm"
Do While Inet1.StillExecuting
DoEvents
Loop
.Execute , "CLOSE"
End With
End Sub

moi aussi je suis intéressé par ce procédé mais je ne sais pas comment déclarer inet1, c koi comme type d'objet, bref comment ca marche?



-------------------------------
Réponse au message :
-------------------------------

> Salut!
> ce procédé m'intéresse fortement!
> Quelqu'un pourrait me dire quel composant il faut afficher? (Je ne trouve pas inet sur Mon visual basic).
>
> Merci beaucoup!!!
> Gab
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> Laissez tomber, je viens de trouver un truc qui marche bien :
>
> Private Sub Form_Load()
> With Inet1
> .AccessType = icUseDefault
> .URL = "ftp://ftpperso.free.fr"
> .UserName = "MonPseudo"
> .Password = "MonPassword"
> '.RequestTimeout = 40
> .Execute , "PUT MonFichierDestination.htm MonFichierSource.htm"
> Do While Inet1.StillExecuting
> DoEvents
> Loop
> .Execute , "CLOSE"
> End With
> End Sub
>

Mouias pas si sur pour les file > 1G ca part en sucette donc je ne valide pô en ce qui me concerne

DaVid

le composant inet se trouve dans : Projet/composant/microsoft internet transfert controle
Bon courage ;)

Clad