Autres Tests de diverses solution pour lister dans un dialog perso des fichiers en filtrant par expression et extension

[patricktoulon]

Bonjour à tous
si il y a des âmes charitables qui voudraient bien tester ma pseudo boite de dialogue fichier avec filtre ca m'arrangerait
en fait je l'ai créée sous trois formae différente

1° la filedilogspecial1
avec un dir en ligne de commande lancée par wscript.shell(.excec) et récupérée par le stdout.readall
ce qui implique une apparition brève mais tout de même de la fenêtre dos

2° la filedilogspecial2
avec un dir en ligne de commande lancée par wscript.shell (.run)et récupérée dans un fichier text temporaire
ce qui implique que la fenêtre dos n'apparait pas puisque je hide la fenêtre

3° la filedilogspecial3
dans celle ci j'utilise un hersats de ma fonction FSOGOSUB de 2021 avec FSO

tout les argument sont optionnels
le choix du fichier se fait au double click
possibilité d'annuler

vous avez 3 module pour tester chaque version
si vous pouviez donc tester la testA4 , TestB4 , TestC4 qui sont selon moi les plus importantes
et me dire si la différence de temps d'apparition de la fenêtre avec la liste de fichier filtrée avec les arguments envoyés par les sub de testsest importante ou pas
voir même cela vous gène t il plus que ça (que la fenêtre dos apparaisse brièvement (pour la fildialoSpecial1) )?

merci aux testeurs
après moult tests dans diverses situations la version 5 et celle qui a été retenu

 

[patricktoulon]

ah oui en effet il a sauter pour "partnom

' Paramètres de recherche
    ' Expression dans la partie du nom
    partNom = Replace(TxtbExpression, "*", "%")
    extension = Replace(TxtbExtension, "*", "%")

 

[patricktoulon]

et en plus j'ai libré le mauvais modele pour la 4
en fait là vous avez pas la récursivité optionnelles elle est en recursive tout le temps
Voila le bon modèle
milles excuses pour la bevu
a force de compiler des exemple on fini par s’emmêler les pinceaux

la sub GO_click dans son entièreté

Public Sub go_Click()
    Dim Chemin As String, partNom As String, Recurr As String, liste As String, extension As String, tempFile, X, i As Long, tim
    Dim m
    Const MSG_CHEMIN_VIDE As String = "Veuillez d'abord choisir un dossier parent à examiner"
    Const MSG_LISTE_VIDE As String = "La liste n'a pas pu être récupérée." & vbCrLf & _
                                      "Ou il n'y a pas de fichier avec cette extension" & vbCrLf & _
                                      "Vérifiez vos paramètres." & vbCrLf & _
                                      "Et éventuellement les autorisations de votre système pour le wscript."

    tempFile = Environ("userprofile") & "\desktop\temp_output.txt"

    ListBox1.Clear

    Chemin = TxtbFolder ' Le folder dans le textbox

    With ListBox1
        If Chemin = "" Then
            .AddItem MSG_CHEMIN_VIDE:
            .BackColor = &HC7BBA0
            .Enabled = False
            Exit Sub
        End If

        If Dir(Chemin, vbDirectory) = "" Then
            .AddItem "Ce dossier racine est introuvable": valeur = False:
            .BackColor = &HC7BBA0
            .Enabled = False
            Exit Sub
        End If
    End With

    If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\" ' On prévoit le séparateur si nécessaire

    ' Paramètres de recherche
    ' Expression dans la partie du nom
    partNom = Replace(TxtbExpression, "*", "%")
    extension = Replace(TxtbExtension, "*", "%")

    'switch pour la récursivité
    If Checkrecursif = False Then
       'il ne doit pas  y avoir plus d'antislashs que le chemin de depart en non recursif
        X = Application.Rept("%\", UBound(Split(Chemin, "\")) + 1)
        Recurr = "AND System.ItemPathDisplay NOT LIKE '" & X & "%' "
    End If


    'Archive Octobre 2024 ;modèle patricktoulon  requete windowsearch V 4
    On Error GoTo ErrorHandler

    Dim Debut As Currency, Fin As Currency, Freq As Currency
    QueryPerformanceCounter Debut
    Dim objConnection As Object, objRecordset As Object
    Dim j As Integer
    Dim montableau, mess As String


    ' Création des objets ADODB
    Set objConnection = CreateObject("ADODB.Connection")
    Set objRecordset = CreateObject("ADODB.Recordset")


    ' Ouverture de la connexion
    objConnection.Open "Provider=Search.CollatorDSO;Extended Properties='Application=Windows';"
    ' Requête SQL avec les paramètres
    objRecordset.Open "SELECT System.ItemPathDisplay , System.ItemName, System.DateModified FROM SYSTEMINDEX " & _
                       "WHERE System.ItemPathDisplay LIKE '" & Chemin & "%' " & _
                       "AND System.ItemName LIKE '%" & partNom & "%' " & Recurr & _
                       "AND System.ItemName LIKE '%." & extension & "%'", objConnection

    ' Extraction des données et affichage
    If Not objRecordset.EOF Then
        montableau = objRecordset.GetRows()
        m = Transpose2dim(montableau)
    Else
        ReDim m(0) ' La ListBox accueille le split de la variable Liste
    End If

    QueryPerformanceCounter Fin
    QueryPerformanceFrequency Freq
    dt = Format(((Fin - Debut) / Freq), "0.000") & " s"

    With ListBox1
        If UBound(m) > 0 Then
            .List = Application.Index(m, 0, 1)
            labelcount = .ListCount & " Fichiers trouvés en " & dt
            .BackColor = vbWhite
        Else
            .List = Split(MSG_LISTE_VIDE, vbCrLf): ListBox1.Enabled = False
            .BackColor = &HC7BBA0
        End If
    End With
Cleanup:
    ' Fermeture des objets
    On Error Resume Next
    objRecordset.Close
    objConnection.Close
    Set objRecordset = Nothing
    Set objConnection = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "Erreur : " & Err.Description, vbCritical
    Resume Cleanup
End Sub

merci @jurassic pork pour m'avoir titiller , j'aurais laisser comme ça sinon c'est Balloh!!

 

[patricktoulon]

re
spécial dédicace à @laurent950

 

[laurent950]

Re Patrick,

Ton explication est claire et limpide. Tu as fait un travail de recherche remarquable avec ces 4 codes, qui ont mis en lumière le code 5 que je pourrais qualifier en un mot : impressionnant.

Merci pour cette explication très utile. Après avoir manipulé les différents codes, je vois toute la pertinence de ce programme, dédié à faire des recherches sur des fichiers noyés dans la masse, que l'on n'arrive jamais à retrouver avec le système Windows, trop lent et décourageant après de multiples essais... Avec ce système, c'est juste impressionnant et efficace.

Merci encore, Patrick.
@patricktoulon
Laurent

 

[patricktoulon]

tenez c'est kado
c'est un avant gout de ce que va donner le dialog
voici la fonction utilisée
j'en ai profiter pour tester mon mini benchmark(timer plus precis)

là @laurent950 il est content

 

[ChTi160]

Bonsoir Patrick
dans cette procédure j'ai un probléme avec le "M_timer "

Sub test()
  
    ' Lancer le chronométrage pour la Sub test
    StartExecTimeMonitoring "démarrage de la sub test", report, debut, 1
  
    x = mafonction
    
    M_timer
    ' Afficher le rapport
    MsgBox report
End Sub

c'est quoi est-ce ? Lol
Jean marie

 

[laurent950]

Re @patricktoulon,

J'ai essayé de mon côté, et j'arrive à un résultat, mais en 1,50 secondes, alors que toi, c'est autour de 0,08 secondes. C'est déjà pas mal ! J'ai trouvé un principe qui vaut ce qu'il vaut, je vais continuer à étudier tout cela.

Ce soir, je fais une pause, je suis complètement Excélisé

Encore une fois, merci ! Je vais poursuivre, c'est très intéressant.

 

[patricktoulon]

@ChTi160
bonsoir jean marie
un rattage de copier coller

Sub test()
    
    ' Lancer le chronométrage pour la Sub test
    StartExecTimeMonitoring "démarrage de la sub test", report, debut, 1
    
    x = mafonction
      
     StopExecTimeMonitoring "fin de la sub test", report, debut, 1
 ' Afficher le rapport
    MsgBox report
End Sub

@laurent950 quand tu le lance plus fois ça donne quoi?

 

[laurent950]

@laurent950 quand tu le lance plus fois ça donne quoi?

Code 1 : [0,196 | 0,173 | 0,171 | 0,162 | 0,170 | 0,174]
Code 2 : [0,101| 0,095 | 0,093 | 0,094 | 0,097 | 0,092]
Code 3 : [0,088| 0,090 | 0,086 | 0,092 | 0,086 | 0,084]

Test Dossier avec :
* Expression = Une chaine de caractère
* Extension = Laisser Vide

 

[patricktoulon]

@laurent950
quel code 1 2 3
tu n'a que 2 tests a faire je te redonne le fichiers
avec donc la NewDir et l'ancienne méthode que j'utilisais remis au gout du jour
et du coup elle redevient la plus rapide d'une poussière de rien du tout
le secret c'est de vider en cours de route la collection
et de charger le return (pour la vielle récursive) quand elle revient l'instance 1 de la fonction

dans mon disque
363 dossiers et sous dossiers
2634 fichiers

pour la petite nouvelle methode newdir
1° recherche sélective expression , sans extension et recursif à true =65 ms pour 59 fichiers trouvés
2° recherche sélective expression , sans extension et recursif à false=13 ms pour 20 fichiers trouvés
3° listage complet du disque 70 ms pour 2589 fichiers trouvés
4° listage non recursif juste la racine 17 ms pour 717 fichiers

l'ancienne methode la Old
1° recherche sélective expression , sans extension et recursif à true =66 ms pour 59 fichiers trouvés
2° recherche sélective expression , sans extension et recursif à false=13 ms pour 20fichiers trouvés
3° listage complet du disque 69 ms pour 2589 fichiers trouvés
4° listage non recursif juste la racine 15 ms pour 717 fichiers

 

[laurent950]

quel code 1 2 3

Avec le fichier en Poste #110

Je vais recommencer avec ton fichier

 

[jurassic pork]

Hello,
en faisant des tests avec la nouvelle méthode je me suis aperçu qu'elle ne renvoyait pas le même nombre de fichiers que la version 1 et 2 (avec cmd), il y en a moins. J'ai regardé les fichiers qui étaient absents : Les fichiers qui commencent par . ce qui est normal par rapport à ton code mais il y a aussi les fichiers sans extension (comme LICENSE par exemple). Si on met dans ton code Optional Ext = "*" au lieu de Optional Ext = "*.*", je récupère bien les fichiers sans extension. Il y a aussi le fait que les fichiers n'ont pas le même ordre qu'avec la version 1 ou 2 mais cela ne pose pas un problème car on peut trier.
Ami calmant, J.P

 

[patricktoulon]

re
Bonjour @jurassic pork merci pour le tuyaux
donc si je pige le truc l'extension par defaut c'est "*" comme pour part?

 

[jurassic pork]

donc si je pige le truc l'extension par defaut c'est "*" comme pour part?

hello patricktoulon, ben oui en tout cas chez moi cela fonctionne. Sinon pour le problème des fichiers qui ne sont pas dans l'ordre cela se produit surtout quand il y a beaucoup de répertoires et de fichiers dans les résultats. Exemple (partie) :

là on voit un seul fichier dans le répertoire SharpDevelop alors qu'on en retrouve pleins d'autres ailleurs dans les résultats.

 

[patricktoulon]

je monte chez moi de 2624 a 2629 fichier sur le disque que je test habituellement

et sur C:\Program Files

version 1 : (tout fichier) 23544 fichiers en 1.628 sec
version 2 : (tout fichier) 23544 fichiers en 1.185 sec
version 3 : (tout fichier) 23542 fichiers en 9.960 sec
Version 4 : (ne marche pas sur program Files)( i dont know why)
version 5 : (tout fichiers) de 22884 à 23334 fichiers en 1,882 sec