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
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 :
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
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
Partager