Discussion :

[Flashmod]

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.

[l_autodidacte]

Salut;

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tf.WriteLine VbTab & subfolder.name

[SfJ5Rpw8]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sub Scanner(sDossier,iNbIndent)

Pour le 1° appel tu met 1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Flashmod]

Bonjour,


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

Cordialement