Discussion :

[Tierisa]

Bonjour
Tout est dans le titre. J'ai migré vers MS365 et le module de classe clsFileSearch qui me permettait de retrouver un fichier dans un dossier me fait maintenant bugger avec le nouvel access et ferme l'appli. Sauriez-vous ce qu'il faut changer pour que cela fonctionne à nouveau ou auriez-vous une autre proposition à me faire svp?
Merci de votre aide

[deedolith]

Salut,

Voyons que dit ma boule de cristal ...
...
...
...
Rien ! Elle est cassée.

Plus sérieusement, sans tes codes source, on ne va pas pouvoir faire grand chose.
Les seuls suspects que je puisse désigner sont: Les API.

[Tierisa]

bonjour.
Désolé, comme j'avais récupéré ce code via ce forum, je pensais qu'il était connu. Le voici:
Module de classe

Code :

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

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
60
61
62
63
64
65
66
67
 
Option Compare Database
 
Private Declare PtrSafe Function FindFirstFile Lib "Kernel32.dll" Alias "FindFirstFileA" ( _
    ByVal lpFileName As String, _
    ByRef lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare PtrSafe Function FindNextFile Lib "Kernel32.dll" Alias "FindNextFileA" ( _
    ByVal hFindFile As Long, _
    ByRef lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare PtrSafe Function FindClose Lib "Kernel32.dll" ( _
    ByVal hFindFile As Long) As Long
Private Declare PtrSafe Function FileTimeToLocalFileTime Lib "Kernel32.dll" ( _
    ByRef lpFileTime As FILETIME, _
    ByRef lpLocalFileTime As FILETIME) As Long
Private Declare PtrSafe Function FileTimeToSystemTime Lib "Kernel32.dll" ( _
    ByRef lpFileTime As FILETIME, _
    ByRef lpSystemTime As SYSTEMTIME) As Long
 
Private Enum FILE_ATTRIBUTE
    FILE_ATTRIBUTE_READONLY = &H1
    FILE_ATTRIBUTE_HIDDEN = &H2
    FILE_ATTRIBUTE_SYSTEM = &H4
    FILE_ATTRIBUTE_DIRECTORY = &H10
    FILE_ATTRIBUTE_ARCHIVE = &H20
    FILE_ATTRIBUTE_NORMAL = &H80
    FILE_ATTRIBUTE_TEMPORARY = &H100
End Enum
 
Private Const MAX_PATH = 260&
Private Const INVALID_HANDLE_VALUE = -1&
 
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
 
Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type
 
Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type
 
Private mlngFileCount As Long
Private mudtFiles() As FILEINFO
Private mstrFolderPath As String
Private mstrExtension As String
Private mstrSearchLike As String
Private mblnSubFolders As Boolean
Private mblnCaseSenstiv As Boolean

et le début du code dans mon formulaire qui y fait appel

Code :

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

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
 
Dim objFileSearch As clsFileSearch
Dim lngIndex As Long
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim fso As Scripting.FileSystemObject
Dim fd As Scripting.Folder
Dim fl As Scripting.File
Dim fdCur As Scripting.Folder
Dim sFolderName As String
 
    Forms("materiau").listefichiers.AddItem "Fichiers" & ";" & "" & ";" & "Date modification" & ";" & "Emplacement"
    Forms("materiau").listedossiers.AddItem "Dossiers" & ";" & "" & ";" & "Emplacement"
 
    Set db = CurrentDb()
    Set rst = db.OpenRecordset("nomfichier")
    With rst
         While Not rst.EOF
 
        'recherche des fichiers dans le group
        b = 0
        If Forms("materiau").chdossier <> "" Or Not IsNull(Forms("materiau").chdossier) Then
                Set objFileSearch = New clsFileSearch
            With objFileSearch
                .CaseSenstiv = True
                .Extension = "*.*"
                .FolderPath = Forms("materiau").chdossier
                .SearchLike = "*" & rst.Fields("nomfichier") & "*"
                .SubFolders = True
                    If .Execute(Sort_by_Size, Sort_Order_Descending) > 0 Then
                            For lngIndex = 1 To .FileCount
                                With .Files(lngIndex)
                                n1 = .strFilename
                                n2 = .strPath
                                n6 = .dmtLastModify

Merci de votre aide