Discussion :

[ShortcutZ]

Bon, après avoir cherché dans le forum et dans la FAQ et aussi dans Google, je pète les plombs.

Quelle est la commande pour envoyer un simple fichier par ftp ??? J'ai créer un serveur sur la même machine que le programme. Voici le code de mon appi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
With Inet
 
.Accesstype = icDirect
.Protocol = icFTP
.URL = "ftp://user:pass@localhost"
.Execute , "PUT " & App.path & "\source.zip destination.zip"
 
While .StillExecuting
DoEvents
Wend
End with

J'ai aussi essayé de remplacer PUT par SEND, sans résultats... AU SECOURS ! C'est pourtant simple !!!!! !! ! ! ! ! !

[Delbeke]

essaye de mettre simplement localhost dans l'url

[ShortcutZ]

même résultat ... rien

[Delbeke]

Je ne connais pas bien inet, mais j'ai developpé un composant client ftp basé sur winsock
http://www.developpez.net/forums/sho...d.php?t=188815

[ThierryAIM]

un exemple pour un envoi vers un site perso :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
    Dim strFile As String
    CDlg1.ShowOpen
    With Inet1
        .AccessType = icDirect
        .Protocol = icFTP
        .URL = "FTP://thierry.aim:*****@ftpperso.free.fr"
        MsgBox CDlg1.FileName & " va etre envoyé"
        .Execute , "SEND " & strFile & " " & CDlg1.FileTitle
        While .StillExecuting
            DoEvents
        Wend
        .Execute , "CLOSE"
    End With
    MsgBox "tranfert terminé"
End Sub