Resultat trie d'une recherche avec FileSearch

Resultat trie d'une recherche avec FileSearch - VB/VBA/VBS - Programmation

Marsh Posté le 22-08-2005 à 10:51:02    

Bonjour,
Je recupere une liste de nom de fichier avec FileSearch comme ceci:

Code :
  1. With Application.FileSearch
  2.     .NewSearch
  3.     .RefreshScopes
  4.     .LookIn = "unRepertoireParticulier"
  5.     .Filename = "toto*"
  6.     .FileType = msoFileTypeExcelWorkbooks
  7.     .LastModified = msoLastModifiedLastWeek
  8.     .SearchSubFolders = False
  9.    
  10.     If .Execute() > 0 Then
  11.         For i = 1 To .FoundFiles.Count
  12.             MsgBox .FoundFiles(i)
  13.         Next i
  14.     Else
  15.         MsgBox "File not found."
  16.     End If
  17.   End With


 
J'aimerai que la liste des fichiers trouves soient triee par ordre de modification (ou du moins par ordre alphabetique car je respecte une nomenclature appropriee)
 
Exemple:
toto_2005_08_18.xls <-- doit se trouver dans .FoundFiles(1)
toto_2005_08_19.xls <-- doit se trouver dans .FoundFiles(2)
toto_2005_08_22.xls <-- doit se trouver dans .FoundFiles(3)
 
P.S: J'ai l'impression que c'est deja le cas, mais l'aide sur FileSearch ne donne aucun renseignement sur son fonctionnement ni dans quel ordre elle parcourt le repertoire.


Message édité par guendalf le 22-08-2005 à 10:57:45

---------------
Guendalf
Reply

Marsh Posté le 22-08-2005 à 10:51:02   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed