FTP INET

Question

Bonjour jaimerait savoir comment faire pour envoyer plusieur fichier par inet

jais esailler ces ligne de comande

Private Sub Timer1_Timer()

With Inet1
    .URL = "ftp://127.0.0.1/"
    .UserName = "serveur"
  .Execute , "PUT " & "c:/123.rar" & " " & "123.rar"
End With
Timer1 = False
End Sub

Mon problem et que jaimerait pouvoir up 123 , 456 , 789

Comment Faire merci de votre aide

cs_Jack · Answer

Salut
Bah tu répètes ton instruction PUT avec le nom des autres fichiers ...
Où butes-tu ?
Peut-être faudra t-il attendre que Inet soit disponible avant d'envoyer les suivants --> Une boucle d'attente du genre (de mémoire)
   Do While Inet.State = inetStillExecuting
      DoEvents
   Loop

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_rocky42 · Answer

Private Sub Timer1_Timer()
With Inet1
    .URL = "ftp://ftpperso.free.fr/"
    .UserName = "unitp90"
    .Password = "stargate"
  .Execute , "PUT " & "c:/ClientRegistry.blob" & " " & "ClientRegistry.blob"
     Do While Inet.State = inetStillExecuting
      DoEvents
   Loop
  .Execute , "PUT " & "c:/teamspeak122.rar" & " " & "teamspeak122.rar"
End With
Timer1 = False
End Sub

Je ne vois pas comment le placer un petit coup de min serait simpa merci

cs_Jack · Answer

Re
Bah oui, suffit de répéter le Do-Loop après chaque .Execute
Je ne vois vraiment pas quel est ton problème ...

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_rocky42 · Answer

Private Sub Timer1_Timer()
With Inet1
    .URL = "ftp://192.168.0.1/"
    .UserName = "serveur"
  .Execute , "PUT " & "c:/Client.blob" & " " & "Client.blob"
     Do While Inet.State = inetStillExecuting
      DoEvents
   Loop
  .Execute , "PUT " & "c:/22226.rar" & " " & "22226.rar"

End With
Timer1 = False
End Sub

Je bloque ici

     Do While Inet.State = inetStillExecuting
      DoEvents
   Loop

cs_rocky42 · Answer

Quelqun peut m'aider ?

FTP INET

5 réponses

Votre réponse

Discussions similaires