Discussion :

[balthior]

Bonjour

Pouvez vous me dire si il existe une éthode simple pour faire un filtre en vbs ( ne recuperer que les fichiers .zip par exeple)

J'ai trouver cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Monfichier = "C:\lalicense.xml"
partfic = split(Monfichier,".")
Monfichier = "." & partfic(1)

mais je suis obliger de rentrer le nom du fichier en dur
Merci d'avance

[SfJ5Rpw8]

et tu ve les récupérer ou (comment..?) ces fichiers...?

[balthior]

Bonjour

Je voudrais lister tout les fichiers situés dans un repertoire.
Je pensait faire un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
For Each fichiers In fic
If fichiers.extension = ".log"  then
.....
End If
Next

Mais .extension ne fonctionne pas et je cherche donc une alternative
Merci d'avance

[omen999]

remplacer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If fichiers.extension = ".log"  then

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Right(fichiers.ShortName,3) = "log"  then

[AlainTech]

Sans avoir testé mais en réfléchissant un peu, je dirais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For Each fic In fichiers
  partfic = split(fic,".")
  extension = partfic(ubound(partfic))
 
  If extension = "log"  then
    msgbox extension
  End If
Next

A toi de créer la collectoi fichiers...

[balthior]

Merci

Tout fonctionne
Bonne fete a tous