Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access recherche de fichier avec Application.FileSearch

recherche de fichier avec Application.FileSearch

3 réponses
Avatar
michel laporte
bonjour
si je tape ce code
Dim fs
Dim i As Integer
=20
Set fs =3D Application.FileSearch
With fs
.NewSearch
.LookIn =3D "C:"
.SearchSubFolders =3D True
.FileName =3D "*.doc"
If .Execute(SortBy:=3DmsoSortByFileName, _
SortOrder:=3DmsoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i =3D 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

normalement il va me chercher sur c: et dans tous les sous-
r=E9pertoire les documents avec une extension doc
et bien non comme j'ai fait une recherche au pr=E9alable sur=20
c:\toto\toto1\ il continue =E0 chercher =E0 ce niveau cela=20
fait 1H30 je cale

merci de votre aide
michel
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonsoir.

essaie de modifier ainsi:
.LookIn = "C:"
C: tout seul n'indique pas le chemin mais le support.
--
@+
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


"michel laporte" a écrit dans le message de
news:5a0601c4749f$a64fb480$
bonjour
si je tape ce code
Dim fs
Dim i As Integer

Set fs = Application.FileSearch
With fs
.NewSearch
.LookIn = "C:"
.SearchSubFolders = True
.FileName = "*.doc"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

normalement il va me chercher sur c: et dans tous les sous-
répertoire les documents avec une extension doc
et bien non comme j'ai fait une recherche au préalable sur
c:totototo1 il continue à chercher à ce niveau cela
fait 1H30 je cale

merci de votre aide
michel
Avatar
Pierre CFI [mvp]
bonjour
alors raymond, finies les vacances ? tu as claqué tout ton fric au bistrot du casino ??

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Raymond [mvp]" a écrit dans le message de news:%
Bonsoir.

essaie de modifier ainsi:
.LookIn = "C:"
C: tout seul n'indique pas le chemin mais le support.
--
@+
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


"michel laporte" a écrit dans le message de
news:5a0601c4749f$a64fb480$
bonjour
si je tape ce code
Dim fs
Dim i As Integer

Set fs = Application.FileSearch
With fs
.NewSearch
.LookIn = "C:"
.SearchSubFolders = True
.FileName = "*.doc"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

normalement il va me chercher sur c: et dans tous les sous-
répertoire les documents avec une extension doc
et bien non comme j'ai fait une recherche au préalable sur
c:totototo1 il continue à chercher à ce niveau cela
fait 1H30 je cale

merci de votre aide
michel




Avatar
Raymond [mvp]
Bonjour Pierre.

Fini pour les vacances.
Même pas au bistrot du casino, tout seul dans ma case, du bon Listel Gris
bien frais.

--
@+
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


"Pierre CFI [mvp]" a écrit dans le message de
news:e%
bonjour
alors raymond, finies les vacances ? tu as claqué tout ton fric au bistrot
du casino ??


--
Pierre CFI