Discussion :

[Ramdoulou]

Bonjour à tous =)

Alors voilà, j'adore vraiment le composant qui sert à réaliser une sorte de client FTP qu'a fait Delbeke.

Seulement j'ai un petit probleme...je sais comment envoyer des fichiers mais un par un...mais comment envoyer par exemple tous les fichiers en .rar d'un dossier ?

Merci d'avance =)

[Delbeke]

Tu fais une boucle dir sur ton répertoire et tu envoies chaque fichier séparement, le protocole ftp ne permet de n'envoyer qu'un fichier à la fois

[Ramdoulou]

Merci de ta réponse

J'ai mis ce code

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Timer1_Timer()
    Dim f As String
 
f = Dir$("C:\tst\", vbArchive)
txt.Text = txt.Text & vbCrLf & f
Dir
txt.Text = txt.Text & vbCrLf & Dir
 
End Sub

Mais ca ne recupere que les 2 premiers fichiers, comment faire en sorte que ça se fasse en boucle jusqu'à ce qu'il n'y ai plus de fichiers trouvés ?

Merci =)

[SfJ5Rpw8]

tu est sur que c'est seulement les 2 premiers. ?


pour l'utilisation de dir :

Code :

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

1
2
3
4
5
6
7
8
 
dim st as string
st = dir("c:\*.*")
 
while st <> "" 
   debug.print st
  st = dir
wend

[Ramdoulou]

Merci pour ta réponse, je m'y étais donc mal pris =)

[Ramdoulou]

Enfaite, j'ai un autre petit probleme...=/

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
Private Sub Command2_Click()
 Dim st As String
st = Dir(chemin.Caption & "\*.rar")
fileup.Caption = st
 
 Me.Label4.Caption = "Upload en cours..."
 If FtpCli1.Met_PUT(chemin & "\" & fileup.Caption) Then
         up.Text = up.Text & vbCrLf & fileup.Caption & ".rar" & " uploadé !"
         Envoi
         Else
         up.Text = up.Text & vbCrLf & "Erreur pour l'upload de " & fileup.Caption & ".rar ..."
      End If
 
      While st <> ""
   Debug.Print st
  st = Dir
fileup.Caption = st
If fileup.Caption <> "" Then
'#### REPETITION DE LA MANOEUVRE ####
End If
Wend
End Sub

Donc voilà, enfaite ce que je veux faire, c'est que pour chaque fichiers .rar trouvés dans le dossier et affiché donc un par un dans un label appellé Fileup, que le composant up ce fichier, jusqu'à avoir tout uppé...

Je ne sais pas comment m'y prendre, vous pouvez m'aider svp ? Merci =)

[SfJ5Rpw8]

avec ce code le premier fichier est bien transféré ?

[Ramdoulou]

Non et dailleurs je ne comprends pas pourquoi =o

[edit] : Autant pour moi, si il s'envoit

[SfJ5Rpw8]

et pourquoi le code de copie n'est pas dans la boucle qui parcours les fichiers While.... wend ..?

[Ramdoulou]

C'était ça le probleme, je ne savais pas trop comment m'y prendre, et je m'étais un peu enmelé les pinceaux =x

Merci bien =D