Problème d'indentation dans un fichier texte / fonction recursive

Bonjour,


Voilà mon problème, j'ai écris un script VBS qui permet d'ecrire dans un fichier texte tous les répertoires et tous les fichiers d'un répertoire donné.

Mon script fonctionne, voici le code de la fonction (je ne met pas le code entier juste ma fonction) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Scanner(sDossier) ' sDossier : chemin du repertoire cible   Dim file, subfolder   For Each file in sDossier.Files   tf.WriteLine(file.name) ' tf : correspond a mon fichier texte   Next   For Each subfolder in sDossier.Subfolders   tf.WriteLine(subfolder.name)   Call Scanner (subfolder) ' fonction récursive   Next   End sub

---

Donc par exemple pour ce répertoire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Nouveau sous dossier(1) nouv n1 n2 nouv(2) nouv(3) n3 sous dossier(2) ndoss ndoss(2)

---

J'obtiens dans mon fichier texte :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Nouveau sous dossier(1) nouv n1 n2 nouv(2) nouv(3) n3 sous dossier(2) ndoss ndoss(2)

---

Et donc voici mon problème, je n'ai pas l'indentation, j'ai utilisé diverses solutions mais je n'y arrive pas.

J'aimerais obtenir dans mon fichier texte les données sous la forme comme cité précedemment :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Nouveau sous dossier(1) nouv n1 n2 nouv(2) nouv(3) n3 sous dossier(2) ndoss ndoss(2)

---

Merci d'avance pour vos réponses.

Cordialement.

Salut;

Ajoute un nombre adéquat de VbTab selon le niveau(fichier, dossier ou sous-dossier):

Code:

---

tf.WriteLine VbTab & subfolder.name

---

Bonsoir,

en rajoutant une paramètre "indentation" a ta fonction

Code:

---

Sub Scanner(sDossier,iNbIndent)

---

Pour le 1° appel tu met 1 :

Code:

---

Scanner FSO.GetFolder("D:\users\dvp\VBS\"),1

---

il faut modifier la ligne écrivant dans ton fichier et y rajouter le nombre de tabulation souhaité :

Code:

---

tf.WriteLine(string(iNbIndent,vbTab) & file.name)

---

et penser à rajouter 1 au nombre d'indentation à chaque nouveau dossier :

Code:

---

1 2	tf.WriteLine(string(iNbIndent,vbTab) & subfolder.name) Call Scanner (subfolder,iNbIndent+1) ' fonction récursive

---

[Edit] Arf .... l'autodidacte m'as devancé .... :roll:

Bonjour,


Merci beaucoup pour vos réponses, mon problème est désormais résolu grâce a vous.

Cordialement