[WD17] Explorer le contenue d'un dossier en FTP sujet

Bonjour à tous,

Je cherche à explorer le contenu d'un répertoire et bien sur des sous répertoires.....sur un serveur en m'y connectant en FTP.
Le but du jeu étant ensuite de faire une liste de tous les fichiers avec leur chemin dans un tableau.

Je connais bien sur la fonction FTPlistefichier mais le gros problème c'est que celle-ci n'est pas récursive et n'explore donc pas les sous-répertoires.....

Voilà ce que j'ai essayé de faire en m'inspirant d'une discussion de ce forum
Pour l'instant je crée un fichier texte pour avoir le contenu du tableau obtenu....

Merci d'avance pour votre aide
le code:

Code:

---

//boucle pour stocker tous les répertoires existants
FTPListeFichier(resconnect,sDossiercoffrefort,"FTPrepertoiredistant",FTPRépertoire+FTPFichier)

fichierinfo est une chaîne
i1 est un entier système=1

TANTQUE i1 < gnCompteurrepertoiredistant
SI fichierinfo <> "" ALORS
fichierinfo=fichierinfo+Caract(13)+Caract(10)+tableau_repertoiredistant[i1,1]+";"+tableau_repertoiredistant[i1,2]+";"+tableau_repertoiredistant[i1,3]+";"+tableau_repertoiredistant[i1,4]
SINON
fichierinfo=tableau_repertoiredistant[i1,1]+";"+tableau_repertoiredistant[i1,2]+";"+tableau_repertoiredistant[i1,3]+";"+tableau_repertoiredistant[i1,4]
FIN
i1++
FIN

fSauveTexte(fRepDonnées+"\info.txt",fichierinfo)

---

la procédure appelé par FTPlistefichier:

Code:

---

PROCEDURE FTPrepertoiredistant(NomFichierTrouve, nTaille, sAttribut, sDate, sHeure, nParam)
//SI Change <> flChangeRépertoire ALORS
//fichier est une chaine= Cheminrep+nomrep
//Vdate est une chaîne =fDate(Cheminfichier+nomfichier,"",fModification)
//Vtaille est un entier = fTaille(Cheminfichier+nomfichier)
//sTest est une chaîne =Remplace(ExtraitChaîne(Cheminfichier+Nomfichier,1,";"),tab_repertoiresauv[1,1],"")

sTest1 est une chaîne= NomFichierTrouve
sTest2 est une chaîne= nTaille
sTest3 est une chaîne= sAttribut
sTest4 est une chaîne = sDate
sTest5 est une chaîne = sHeure
sTest6 est une chaîne = nParam


SI sAttribut = "D" //si le fichier est un répertoire ALORS
       
        FTPListeFichier(0,NomFichierTrouve+"/","FTPrepertoiredistant")

SINON
        // c'est un fichier on l'ajoute au tableau
        gnCompteurrepertoiredistant++
        TableauAjouteLigne(tableau_repertoiredistant)
        tableau_repertoiredistant[gnCompteurrepertoiredistant,1]=NomFichierTrouve
        tableau_repertoiredistant[gnCompteurrepertoiredistant,2]=nTaille
        tableau_repertoiredistant[gnCompteurrepertoiredistant,3]=sAttribut
        tableau_repertoiredistant[gnCompteurrepertoiredistant,4]=sDate
        tableau_repertoiredistant[gnCompteurrepertoiredistant,5]=sHeure
        tableau_repertoiredistant[gnCompteurrepertoiredistant,6]=nParam
FIN

RENVOYER Vrai

---