VB6 La fonction PUT me gonfle... A l'aide

VB6 La fonction PUT me gonfle... A l'aide - VB/VBA/VBS - Programmation

Marsh Posté le 13-02-2007 à 21:45:58    

Code :
  1. Function Envoi_Matrice()
  2. Dim fichier2 As String
  3. 'fichier2 et FICHIER correspondent aux noms de fichiers que je transfere
  4. debut:
  5. temps1 = Now
  6. attempt = attempt + 1
  7. fichier2 = "matrice_1.php"
  8. ecran.Etat.Caption = "ENVOI en cours"
  9.    With code.Inet2
  10.         .UserName = "user"
  11.         .Password = "pass"
  12.         .URL = "ftp://user:pass@ftpperso.free.fr"
  13.         .Execute , " PUT " & FICHIER & " /" & fichier2
  14.         Do While code.Inet2.StillExecuting = True
  15.         DoEvents
  16.         Loop
  17.    End With
  18.  
  19. temps2 = Now - temps1
  20. If temps2 = 0 And attempt < 10 Then GoTo debut:
  21.  
  22. Call Appel_Matrice
  23. 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 :
  1. ecran.Etat.Caption = "EFFACEMENT en cours"
  2.    With code.Inet2
  3.         .UserName = "user"
  4.         .Password = "pass"
  5.         .URL = "ftp://user:pass@ftpperso.free.fr"
  6.         .Execute , "DELETE " & " /" & fichier2
  7.         Do While code.Inet2.StillExecuting = True
  8.         DoEvents
  9.         Loop
  10.    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
Reply

Marsh Posté le 13-02-2007 à 21:45:58   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed