Problème d'indentation dans un fichier texte / fonction récursive

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) :

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 :

Nouveau 

	sous dossier(1)

			nouv

				n1

				n2

			nouv(2)

			nouv(3)

				n3

	sous dossier(2)

			ndoss

			ndoss(2)

J'obtiens dans mon fichier texte :

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 :

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.