Propriété de taille sur le FileSearch
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:
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
