filtrer les extension

bonjour,
voila je voudrai m'inspiré de ce code qui me referenci tout les fichier et je voudrai filtrer par extension les fichier.

Sub AfficheListeFichier(specdossier)
'Affiche tous les Fichiers du Dossiers specfichiers
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specdossier)
Set fc = f.Files
For Each f1 In fc
s = f1.Name 's & f1.Name
If s <> "" and s = "*.zip" Then
List1.AddItem s
End If
s = s & vbCrLf
Next

End Sub

voila a la ligne en rouge je voudrai appliquer le filtre.

Merci d'avance pour vos solution.

test  = dir(specdossier & "*.zip")

while test <>""
list1.additem test
test = dir
wend

End Sub

sa marche mais je préfére utilisé la méthode avec les FSO même si je ne comprend pas encore tout lol

encore merci.

bonjour, je suis bloqué je veut interomppre le telechargement des fichiers .exe en utilisant java

pourriez vous m'aider?

merci d'avance.

1. Voir le règlement de CodeS-SourceS Merci de le lire
2. Tu n'es pas sur le bon site
3. On ne poste qu'une seule question par topic
   

@+: Ju£i€n
Pensez: Réponse acceptée