Couin Couiiiiinnnn !

Bon, je suis à au moins à tester 5 ou 6 scripts Inet glanés sur divers forum pour tenter d'envoyer des fichiers sur un serveur FTP (réseau local au boulote).

Dans le projet, le composant Microsoft Internet Transfert Control 6.0 est bien coché.

Aucun ne fonctionne, c'est totalement abrutissant à la fin, surtout quand on voit sur les forums, les membres qui répondent des "Works great !!" ou truc du genre

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
 
Private Sub Command1_Click()
Dim LocalPath As String
 Dim RemotePath As String
 
 'LocalPath = Chr(34) & App.Path & "/pouet.txt" & Chr(34)
 'RemotePath = Chr(34) & "\pouet.txt" & Chr(34)
 
 'LocalPath = App.Path & "/pouet.txt"
 'RemotePath = "pouet.txt"
 
 LocalPath = "pouet.txt"
 RemotePath = "pouet.txt"
 
 With Inet1
   .AccessType = icDirect
   .Protocol = icFTP
 
   .UserName = "ctup"
   .Password = "ctup"
   .RemoteHost = "192.168.1.250"
   .Execute .URL, "PUT " & LocalPath & " " & RemotePath
 
   While .StillExecuting
     DoEvents
   Wend
 
   MsgBox "POC"
   .Execute , "CLOSE"
 End With
 
End Sub
Que je mette des Chr34 ou non, des App.Path ou non, des slashs dans un sens ou dans l'autre, ça ne fonctionne pas :
Soit le fichier n’apparaît pas sur le serveur, soit il apparaît mais fait 0 ko .
Et en plus, c'est très long (le "POC" s'affiche au bout de de 30 ou 35 secondes).

Le serveur FTP est de ce qu'il y a de plus basique (ProFTPD 1.3.4a Server, comptes utilisateurs sur une base mySQL sur un vieux linux).
Connexion sans problème avec un FileZilla :
Protocole : FTP - Protocole de Transfert de Fichiers
Hôte : 192.168.1.250
Port : (Rien car si on met 21 vu que c’est le port par défaut, FileZilla remplace par rien)
Chiffrement : Connexion FTP simple (non sécurisé)

Si quelqu'un a une tite idée avant que je fasse voler VB6 ?

Merkouin