FileSearch inexistant access 2010

[hebh]

Bonjour,

Je travaille sur la migration vers l'office 2010 et là j'ai un probleme c'est que FileSearch n'existe plus depuis access 2007.
Y-a-t'il quelqu'un qui sait comment la remplacé.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
Function FindFile(path As Variant) As Variant
 
'**********************************'
'*      Object déclaration        *'
'**********************************'
Dim db As Database
Dim df As TableDef
Dim htrs As Recordset
 
'**********************************'
'*      variable déclaration      *'
'**********************************'
Dim i As Single
 
'************************************'
'*    Object initialization         *'
'************************************'
Set db = CurrentDb
Set df = db.TableDefs!tblFile
Set htrs = db.OpenRecordset("tblFile", dbOpenDynaset)
 
'************************************'
'*        Main Processing           *'
'************************************'
With Application.FileSearch
    .LookIn = path
 
    If .LookIn <> path Then
    GoTo Err_wrong_file
    End If
 
    .FileName = "*.txt"
 
    If .Execute() > 0 Then
        For i = 1 To .FoundFiles.Count
 
             FindFile = .FoundFiles(i)
             htrs.AddNew
             htrs("Path") = FindFile
             htrs.UPDATE
         Next i
    htrs.Close
    Else
        MsgBox "There were no files found."
    End If
End With
GoTo End_path_file
 
Err_wrong_file:
MsgBox "The path was not found."
 
'************************************'
'*         Close Object             *'
'************************************'
End_path_file:
    Set db = Nothing
 
End Function

Merci pour votre collaboration

[loufab]

Bonjour,
Question abordée de TRES nombreuses fois.

Une recherche avec le mot clef Filesearch devrait t'en convaincre.

Cordialement,

[hebh]

j'ai beaucoup cherché mais j'ai pas trouvé qqc qui peut remplacer filesearch. J'ai essayé dir mais le probleme comment changer:

Code :

1
2
 
FindFile = .FoundFiles(i)

Merci de votre collaboration

[loufab]

Bonjour,

Visiblement tu as raté le 14# post de cette discussion.

http://www.developpez.net/forums/d10...access-2007-a/

Le code y est posté par LedZep au complet.

Le Dir fonctionne comme ceci

Code :

1
2
3
4
retour = Dir(chemin, typeretour)
while retour<>""
    retour = dir()
wend

Cordialement,