Discussion :

[lucho013]

Salut tout le monde,

j'essaie de faire une recherche de fichiers avec l'objet FileSearch. Tout se passe bien tant que je n'utilise pas le sous objet PropertyTests.
J'aimerai en effet chercher les fichiers dont la date de dernière modification a eu lieu ente date1 et date2, et pour ce faire, j'ai fait un copier coller de l'aide de VB mais rien n'y fait (cela dit en passant, ils se sont trompés sur le format des dates dans l'aide).

Si j'enlève les 4 lignes du PropertyTests, le .execute, me renvoit bien des fichiers.

Evidemment les fichiers qui sont dans le répertoire que je teste sont bien compris entre 2001 et 2008 pour cet exemple.

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
 
     With Application.FileSearch
        .NewSearch
        .LookIn = ps_dossier_src 'le dossier où on effectue la recherche
        .SearchSubFolders = Nz(pb_ss_dossiers, False)
        .FileName = ps_masque
        .MatchTextExactly = True
        .FileType = msoFileTypeAllFiles
        .PropertyTests.Add Name:="Last Modified", _
                   Condition:=msoConditionAnytimeBetween, _
                   Value:="30/1/2001", SecondValue:="30/1/2008", _
                   Connector:=msoConnectorAnd
        If .Execute() > 0 Then
          .....
        End If
    End With

Qqun a une idée ?

[Tatoine]

c'est normal les ":=" ?
y'a bien deux points? En access?
genre, c'est pas du #c?

peut etre rien a voir lol

[lucho013]

oui oui, c'est bien du VB
on utilise := pour affecter des valeurs aux paramètres d'une fonction sans pour autant avoir à les mettre dans un ordre particulier.

[gamedok]

bonjour,

J'ai un problème similaire.

Le type de fichier que tu souhaites récupérer fait-il partie de ceux traités par filesearch et par la propriété Propertytests ?

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
 
With Application.FileSearch.PropertyTests(1)
mystring = "This is the search criteria: " _
& " The name is: " & .Name & ". The condition is: " _
& .Condition
If .Value <> "" Then
mystring = mystring & ". The value is: " & .Value
If .SecondValue <> "" Then
mystring = mystring _
& ". The second value is: " _
& .SecondValue & ", and the connector is" _
& .Connector
End If
Debug.Print mystring
End If

Le résultat : This is the search criteria: The name is: Type de fichiers. The condition is: 2. The value is: Fichiers Office (*.doc; *.dot; *.xls; *.xlt; *.xlm; *.xla; *.xlc; *.ppt; *.pps; *.pot; *.mdb; *.adp; *.mdw; *.mde; *.ade)

en utilisant ceci avant le execute, j'ai quand même la condition 2 d'afficher alors que msoConditionFileTypeAllFiles vaut normalement 1

Code :

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

1
2
3
4
5
6
 
With fs.PropertyTests
.Add Name:="Type de fichiers", _
Condition:=msoConditionFileTypeAllFiles, _
Connector:=msoConnectorOr
End With

cdt