Bonjour à tous,

J'ai un petit problème. Je cherche à lister tous les fichiers d'un répertoire ayant une extension déja définie. Voici la constante qui déclare les extentions :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Public Const tssPattern = "tss;txt"
(Ce qui veut dire que seule les extensions .tss et .txt marchent)

Et voici le code que j'ai trouvé en recherchant sur ce forum :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim fso, f, fc, fileWriter
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("D:\perso")
Set fc = f.Files
Set fileWriter = fso.OpenTextFile("D:\perso\liste.txt", 2, True)
For Each f1 in fc
	fileWriter.WriteLine f1.name	
Next
Ce que je ne comprends pas de ce code, c'est que je ne sais pas ce qu'est la variable f1. C'est le nom du fichier ?
Donc si j'adapterais ce code pour mon script, est-ce que ceci marcherait (Veuillez prendre note que j'ai déjà déclaré mon objet FSO (il est nommé tssFSO) et mon objet dictionnaire tssTemp préalablement) ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Dim tssFolder, tssFiles, tssPatterns
Set tssFolder = fso.GetFolder(tssPath)
Set tssFiles = tssFolder.Files
tssPatterns = Split(tssPatern, ";")
 
For Each File in tssFiles
 For i = 0 to UBound(tssPatterns)
  If Split(File, ".")(1) = tssPatterns(i) then tssTemp.Add File, True
 Next
Next
Merci d'avance,

Thunder