Discussion :

[squall62]

Bonjour à tous,

Je voudrais réaliser une recherche de fichier pdf avec comme condition qu'il soit modifié le mois en cours (pas de problème celà fonctionne) mais par contre que sa taille soit supérieur à 8ko et là je coince !

si quelqu'un d'entre vous connait bien les propriétés du fileSearch, je le remercie d'avance de prendre quelques minutes pour m'aider.

Voici mon code, j'ai effectué quelques tests

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
 
With oFS
    .NewSearch
    .FileType = msoFileTypeAllFiles
    .Filename = NomReq
    .LookIn = Chemin
    .SearchSubFolders = True
            With .PropertyTests
                .Add Name:="Modifié le", _
                Condition:=msoConditionThisMonth
                .Add Name:="Taille", _
                Condition:=msoConditionAtMost, _
                Value:=8000
            End With
    .Execute
    If .FoundFiles.Count > 0 Then
        Existe = True
    Else
       Existe = False
    End If
End With

Merci !

Ps : je bosse sur Access 2000

[ucfoutu]

Bonjour,

Pourquoi ne pas utiliser la fonction FileLen de VBA ?
(pourquoi, d'ailleurs, passer par FSO (pour le reste) et alourdir ainsi ton appli pour faire ce que VB sait faire facilement ?).

[squall62]

Oui c'est vrai, j'ai vu un tuto et je ne me suis plus occupé des autres.
Je vais donc utiliser la méthode de recherche de ce lien : http://access.developpez.com/sources...ercheRecursive

Merci à toi de m'avoir ouvert les yeux

Bonne après-midi !