Problème avec FTP.list

Bonsoir,

J'ai un petit soucis qui persiste et que je n'arrive pas à traiter malgré mes recherches sur le net :(

Voila le code :

Code:

---

1 2 3 4 5 6

FTP.List('*.txt',True); For j:=0 to (FTP.DirectoryListing.Count-1) do Begin FicName:=FTP.DirectoryListing.Items[J].LocalFileName; End;

---

Je ne passe jamais dans la boucle car FTP.DirectoryListing.Count est égal à 0

Quelqu'un pourrait-il m'aiguiller et me dire ou se trouve mon erreur ? :roll:

Je travaille avec le composant Indy 8O

Merci d'avance :D

Je pense qu'il serait mieux que tu codes cette manière

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var lst : TStringList; begin lst := TStringList.create; try FTP.List(lst,'*.txt',True); For j:=0 to (lst.Count-1) do Begin FicName:=lst.Strings[j]; End; finally lst.free; end; end;

---

Pour ma part c'est de cette manière que je récupère les fichiers d'un FTP

Merci Malatar pour cet exemple qui fonctionne très bien ;)

J'avais tester quequechose de similaire hier, mais j'avais oublié de me positionné dans le bon répertoire :?

Cependant, il me reste une question.

Dans:

Code:

---

1 2	FicName:=lst.Strings[j];

---

Je ne voudrais récupérer que le nom du fichier :roll:
Car pour l'instant j'ai une chaine avec les droits, la adte de création, etc ... et le nom du fichier à la fin.
Je peux faire une routine pour extraire ce nom, mais n'existe il pas un moyen plus simple et plus propre ? ;)

J'ai cherché des exemples et n'arrive pas à me servir de :

Code:

---

1 2	FTP.DirectoryListing.Items[J].LocalFileName

---

Connais tu une méthode pour remplir ce tableau "DirectoryListing" avec List ?

Merci D'avance:D

J'ai recherché moi aussi comment faire fonctionner le DirectoryListing mais je n'ai aps trouvé de solution pour cela, d'où le code que je t'ai fournit où tu es obligé de faire de la découpe pour récupérer le nom.

Attention, le nom de fichier diffère si c'est un serveur windows ou Linux

Merci pour le coup de main :D

Reste plus qu'a faire la routine de découpage ;)