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 : 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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.