Discussion :

[Waduke]

Bonjour à tous ,

Je me décide enfin à poster après avoir fais mintes recherches non concluantes sur mon problème..
Je souhaite dans un 1er temps, upload un simple fichier txt sur mon ftp.
Actuelement, la connection semble réussir puisque la msgbox m'affiche bien "transfert terminé", mais lorsque
je viens me connecter sur l'ftp pour vérifier la présence de mon txt, rien, nada..

Voici mon code :

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
34
35
Open "CharacterAccountLog.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, TextLine
    If TextLine <> (txt_idlog + ";" + txt_idpass) Then
    'Debug.Print TextLine
 
        Else
 
         With Inet1
 
            .RemotePort = 21
            .AccessType = icDirect
            .Protocol = icFTP
            .URL = "monftp" 
            .UserName = "monlog" 
            .Password = "monpass" 
            .Execute , "SEND D:\chemin\CharacterAccountLog.txt /CharacterAccountLog.txt"
            Do While Inet1.StillExecuting
            DoEvents
            Loop
 
            .Execute , "CLOSE"
            MsgBox "transfert terminé"
            End With
 
 
        indice = True
        MsgBox "Lancement du jeu"
        'RetVal = Shell("Updater.exe", 1)
        Identification.Visible = False
        OO.Visible = True
 
    End If
Loop
Close #1

Merci d'avance a ceux qui accepteront de prendre le temps de réflechir a mon problème sur lequel je plache depuis quelques temps sans trouver de réponse..

Wad

[Waduke]

J'ai essayé de remplacer mon .Execute, des fois que ce soit un problème de "procédure", par ceci :

Code :

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

.Execute , "PUT " & "D:\chemin\CharacterAccountLog.txt" & " /CharacterAccountLog.txt"

puis ceci :

Code :

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

.Execute , "GET " & "D:\chemin\CharacterAccountLog.txt" & " /CharacterAccountLog.txt"

Mais rien ne change, la msgbox s'affiche bien après quelques secondes mais toujours pas de fichier sur l'ftp
A l'aaaaide !

[Delbeke]

Essaye

Code :

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

.Execute , "PUT " & "D:\chemin\CharacterAccountLog.txt"

Sinon, tu peux aussi utiliser mon composant client ftp qui te permettra de diagnostiquer précisément les problèmes de ftp. (voir le lien dans ma signature, le source en VB6, du composant est fourni)

[Waduke]

Merci pour ta réponse ,
j'ai essayé

Code :

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

.Execute , "PUT " & "D:\chemin\CharacterAccountLog.txt"

Ca donne un petit temps de chargement a l'execution avant de m'afficher la msgbox "transfert terminé" mais toujours rien..

Sinon j'ai essayé ton composant ftp, il fonctionne niquel, mon .txt s'écrit bien à la racine, mais je ne sais pas comment faire avec mon inet, logiquement ca devrait fonctionner.. je ne saisis toujours pas le problème, c'est vraiment frustrant..

Personne n'a jamais été confronter a ce problème d'écriture ?