Code :
- Function Envoi_Matrice()
- Dim fichier2 As String
- 'fichier2 et FICHIER correspondent aux noms de fichiers que je transfere
- debut:
- temps1 = Now
- attempt = attempt + 1
- fichier2 = "matrice_1.php"
- ecran.Etat.Caption = "ENVOI en cours"
- With code.Inet2
- .UserName = "user"
- .Password = "pass"
- .URL = "ftp://user:pass@ftpperso.free.fr"
- .Execute , " PUT " & FICHIER & " /" & fichier2
- Do While code.Inet2.StillExecuting = True
- DoEvents
- Loop
- End With
-
- temps2 = Now - temps1
- If temps2 = 0 And attempt < 10 Then GoTo debut:
-
- Call Appel_Matrice
- End Function
|
le probleme c'est que 9 fois sur 10 pour une raison que je ne m'explique pas, le prog n'envoie pas le fichier
il passe directement sur le .Execute et me renvoie une valeur temps2 = 0 !
or je sais qu'il lui faut quelques secondes pour envoyer son fichier !
je passe un DELETE juste avant qui ne marche plus trop bien non plus :
Code :
- ecran.Etat.Caption = "EFFACEMENT en cours"
- With code.Inet2
- .UserName = "user"
- .Password = "pass"
- .URL = "ftp://user:pass@ftpperso.free.fr"
- .Execute , "DELETE " & " /" & fichier2
- Do While code.Inet2.StillExecuting = True
- DoEvents
- Loop
- End With
|
Je sais qu'il y a des amateurs de VB.NET mais je n'ai pas le temps de retaper tout mon code et VB6 marche très bien... 
---------------
http://www.ypikay.com
