Un FileSearch sélectif

Bonsoir,

Teste en mettant une apostrophe devant .filetype....

Je ne saisis pas bien l'intêret du 'as boolean' dans public function
Ta fonction ne contient aucune ligne pour renvoyer testfilesearch comme
boolean ni comme autre chose d'ailleurs (pas de ligne testfilesearch =
(qq chose) en fin de fonction).

@+
FxM




EVA wrote:

Bonjour,

J'ai quelques soucis avec un objet FileSearch qui ne veut
pas me lister les fichiers ZIP ???

Le code suivant :
Public Function testfilesearch(strNomDossier As String)
As Boolean
With Application.FileSearch
.NewSearch
.LookIn = strNomDossier
.SearchSubFolders = True
.FileName = "*.*"
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
MsgBox "Nombre de fichiers : "
& .FoundFiles.Count
'HE BIEN TOUS LES FICHIERS Y SONT
'SAUF LES FICHIERS DONT L'EXTENSION EST
ZIP ???????
'SAUF LA PREMIERE FOIS ET ENCORE PAS TOUJOURS
End If
End With
End Function

devrait me donner la liste de tous les fichiers du
dossier et sous dossier.

Ca marche super sauf pour les fichier ZIP. Si je renomme
les fichiers avec une autre extension il les prends.

Est ce un bug ?
Quelqu'un a t'il déjà rencontré ce PB

Merci.

EVA

Bonjour,

J'avais déjà mis en commentaire le .filetype avant de
faire cette demande et cela ne change rien du tout, c'est
d'ailleurs la valeur par défaut de cette propriété de
l'objet FileSearch et apparemment il n'y a pas d'autre
types qui serait plus ouvert que celui là. En plus j'ai
bien des fichiers qui n'ont rien avoir avec des fichiers
Office dans ma liste. Il ne me manque que les fichiers
ZIP !!!

Pour tout dire, j'ai eu quelques fois les fichiers ZIP
dans ma liste de fichier mais si peu souvent que je
n'arrive pas à debugger ce qui se passe après quand les
fichiers ZIP ne sont plus affichés.
Si par exemple je fait deux fois de suite la meme action
pour lister le même dossier, la première fois, je suis
tout content j'ai les fichiers ZIP, je me dis SUPER tu
est un super programmeur, tu a trouvé le bug... bon en
fait la deuxième fois, 20 secondes après, ils n'y sont
plus ????. Depuis plusieurs jours je n'ai plus jamais eu
les fichiers ZIP dans ma liste. Alors ... mystère!!!

Je suis d'accord avec toi pour le as Boolean. Il ne sert
à rien.
Quelque explications pour m'en excuser:
Public function XXX(truc as chose) As boolean
est pour moi une convention de programmation pour tout ce
qui est fonction.
Cela ne sert à rien ici, mais c'est une convention
alors ...
en plus je viens du C++ et j'ai gardé l'habitude de tout
écrire sans utiliser les manies du basic qui nous permet
de déclarer une fonction sans indiquer le format de
retour ce qui est peu rigoureux d'un point de vue
sémantique.

-----Message d'origine-----
Bonsoir,

Teste en mettant une apostrophe devant .filetype....

Je ne saisis pas bien l'intêret du 'as boolean' dans
public function

Ta fonction ne contient aucune ligne pour renvoyer
testfilesearch comme

boolean ni comme autre chose d'ailleurs (pas de ligne
testfilesearch =

(qq chose) en fin de fonction).

@+
FxM




EVA wrote:

Bonjour,

J'ai quelques soucis avec un objet FileSearch qui ne
veut

pas me lister les fichiers ZIP ???

Le code suivant :
Public Function testfilesearch(strNomDossier As
String)

As Boolean
With Application.FileSearch
.NewSearch
.LookIn = strNomDossier
.SearchSubFolders = True
.FileName = "*.*"
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
MsgBox "Nombre de fichiers : "
& .FoundFiles.Count
'HE BIEN TOUS LES FICHIERS Y SONT
'SAUF LES FICHIERS DONT L'EXTENSION EST
ZIP ???????
'SAUF LA PREMIERE FOIS ET ENCORE PAS
TOUJOURS

End If
End With
End Function

devrait me donner la liste de tous les fichiers du
dossier et sous dossier.

Ca marche super sauf pour les fichier ZIP. Si je
renomme

les fichiers avec une autre extension il les prends.

Est ce un bug ?
Quelqu'un a t'il déjà rencontré ce PB

Merci.

EVA
.