Discussion :

[Jihnn]

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

[tofpad]

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

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.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é.

[Jihnn]

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

Mais merci quand même ^^

[weed]

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

[ABOAT]

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

[kiki29]

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