filtrer les extensionRésolu

Question

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.

jrivet · Accepted Answer

Salut,
Si je comprends bien ce que tu veux faire , tu souhaites ajouter dans une listbox tous les fichier .Zip contenu dans un repertoire donné?.

Essaie alors
Sub AfficheListeFichier(specdossier As String)
'Affiche tous les Fichiers du Dossiers specfichiers
Dim fs, f1
   Set fs = CreateObject("Scripting.FileSystemObject")
   For Each f1 In fs.GetFolder(specdossier).Files
       If fs.GetExtensionName(f1.Name) = "zip" Then
           List1.AddItem f1.Name
       End If
   Next
   
   Set f1 = Nothing
   Set fs = Nothing
   
End Sub , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

drikce06 · Answer

Salut, tout dépend de ce que tu veux comme filtre.

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

sephiroth27 · Answer

je me suis inspiré de ton code, en attendant j'avais fait sa:

Sub AfficheListeFichier(specdossier)
'Affiche tous les Fichiers du Dossiers specfichiers
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.

jrivet · Answer

Salut,
Version commentée.

Sub AfficheListeFichier(specdossier As String)
'Affiche tous les Fichiers du Dossiers specfichiers
Dim fs, f1
   'Création d'un objet FileSystemObject
   Set fs = CreateObject("Scripting.FileSystemObject")
   'GetFolder(specdossier) => Récupere le dossier dans une variable
   'de type Folder
   'Pour chaque Fichier contenu dans la collection File du repertoire
   'récupéré
   For Each f1 In fs.GetFolder(specdossier).Files
       'si l'extension du nom du fichier est zip
       If fs.GetExtensionName(f1.Name) = "zip" Then
           'on l'ajoute a la liste
           List1.AddItem f1.Name
       End If
   Next
   
   'destruction des objets
   Set f1 = Nothing
   Set fs = Nothing

'NOTE:
'Tu peux aussi ajouter en référence à ton projet
'Microsoft Scripting Runtime pour pouvoir utiliser directement les
'objet File Folder et FileSystemObject
'de cette maniere tu pourra typer tes variable comme suit
'Dim fs As New FileSystemObject , f1 As File
'ce qui évitera en plus d'avoir a passer par CreateObject.
'Tu pourras aussi de ce fait avoir les methodes et propriété disponibles
'pour les objets lorsque tu tape NomObjet. dans le code

End Sub , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

barboura2006 · Answer

bonjour, je suis bloqué je veut interomppre le telechargement des fichiers .exe en utilisant java


pourriez vous m'aider?


merci d'avance.

jrivet · Answer

Salut,

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

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

Filtrer les extension

6 réponses

Votre réponse