[VBScript] Liste des fichiers d'un répertoire

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:

---

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:

---

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:

---

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

f1 correspond à un objet fichier listé dans la collection fc.

Code:

---

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.name, ".")(1) = tssPatterns(i) then tssTemp.Add File, True Next Next

---

Si tu ne fais pas ça tu pointes sur un objet et nom sur sa propriété.

Oui, je sais, j'ai mis le tag résolu dans le titre ;)

Mais merci quand même ^^

Citation:

---

Envoyé par Jihnn

Oui, je sais, j'ai mis le tag résolu dans le titre ;)

Mais merci quand même ^^

---

Jihn, je vois que tu n'es pas nouveau et je suis surpris de ta remarque.
Pour ma part, je me renseigne pas mal sur une problématique en lisant le forum. J'y apprends beaucoup de choses. Parfois je regarde les sujets au hasard.

Et ce qu'il y a de plus frustrant, c'est lorsque l'on se retrouve au dernier message et qu'il n'y ait pas la réponse au sujet du problème ! Le forum est public et est donc utile tant pour l'auteur que pour les autres ayant rencontré le problème pour éviter de reposer sans cesse la question.

Je dirais même quand c'est positionné en résolu, on s'attend à avoir une réponse.
Ou sinon autant carrément supprimé le fil si il n'y a pas la fin de l'histoire, non ?
Voilà, c'est comme cela que je vois les choses. Qu'est ce que tu en penses ?


Merci à tofpad ;)

Citation:

---

Envoyé par weed

Jihn, je vois que tu n'es pas nouveau et je suis surpris de ta remarque.
Pour ma part, je me renseigne pas mal sur une problématique en lisant le forum. J'y apprends beaucoup de choses. Parfois je regarde les sujets au hasard.

Et ce qu'il y a de plus frustrant, c'est lorsque l'on se retrouve au dernier message et qu'il n'y ait pas la réponse au sujet du problème ! Le forum est public et est donc utile tant pour l'auteur que pour les autres ayant rencontré le problème pour éviter de reposer sans cesse la question.

Je dirais même quand c'est positionné en résolu, on s'attend à avoir une réponse.
Ou sinon autant carrément supprimé le fil si il n'y a pas la fin de l'histoire, non ?
Voilà, c'est comme cela que je vois les choses. Qu'est ce que tu en penses ?


Merci à tofpad ;)

---

C'est 100÷ moi cas je suis entrain de regarder des topics au hasard selon les titres, je suis pas le seul ça me rassure (bon je suis sûrement le seul qui fais ça à 1h...)

Salut, juste pour info si tu es curieux, ce n'est pas du VBS mais du VBA : Liste des fichiers d'un dossier