OVH Cloud OVH Cloud

FileSearch ignore les zip ??

1 réponse
Avatar
tdy
Hello,

Sous WinXPPro, Access 2003, le code suivant ne ramène pas les ZIP :

With Application.FileSearch
.NewSearch
.RefreshScopes
.LookIn = ActiveWorkbook.Path
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles

If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
....

Est-ce parce que ces fichiers sont considérés comme des dossiers
(compressés) ?
Comment les récupérer par FileSearch ?
L'option AlwaysAccurate de Execute() ne change rien.

Merci d'avance

1 réponse

Avatar
Raymond [mvp]
Bonjour.

filesearch ignore les fichiers zip qui sont codés comme dossiers compressés
et non comme fichier. Utiliser la fonction Dir qui reconnait les fichiers
zip en tant que fichiers.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"tdy" a écrit dans le message de
news:c9d0qk$cfm$
Hello,

Sous WinXPPro, Access 2003, le code suivant ne ramène pas les ZIP :

With Application.FileSearch
.NewSearch
.RefreshScopes
.LookIn = ActiveWorkbook.Path
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles

If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
....

Est-ce parce que ces fichiers sont considérés comme des dossiers
(compressés) ?
Comment les récupérer par FileSearch ?
L'option AlwaysAccurate de Execute() ne change rien.

Merci d'avance