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

 

[Staple1600]

Re

Il y a aucune incohérence
Je ne fait que tester ton code et détaille (*) comment j'ai testé
C'est simplement tout à l'heure que j'ai pensé à regarder le contenu du fichier text

(*) en nommant depuis le début de mes tests, l'userform qui pose problème sur mon PC
à savoir : FilDialogSepcial2

On est bien d'accord que le fichier texte devrait contenir le résultat du dir, non ?
cmd /C Dir "C:\Users\XXX\Downloads\YYY\*.*.xlsx" /b /a-d > "C:\Users\XXX\desktop\temp_output.txt"

Or il est vide (suite au test que j'ai décrit dans le message#55)

 

[patricktoulon]

re j'essaie a nouveau avec le dossier downloads

 

[patricktoulon]

re
mais j'y pense a tu coché recursif comme ton fichier est dans un dossier dans downloads

 

[Staple1600]

Bonjour le fil

@patricktoulon
[A] Je viens de tester les 3 userforms en cochant Checkrecursif
(depuis VBE, => F5 )
=>FilDialogSepcial1

Affiche le nom du fichier dans ListBox1​

Mais labelcount affiche 2 fichiers trouvés​

=>FilDialogSepcial2

Toujours le même problème​

=>FilDialogSepcial3

Affiche le nom du fichier dans ListBox1​

Mais labelcount affiche 2 fichiers trouvés​

J'ai fait le même test avec un seul fichier *.xlsm dans le dossier.
(et suppression du fichier *.xlsx précédent utilisé)
=> Même résultat pour les 3 trois tests qu'au point A

[B] en testant à partir du module

Const strPath As String = "C:\Users\XXX\Downloads\YYY"
Sub testB5()
    'rechercher les fichiers   avec extension "xlsx" avec récursivité
    MsgBox FilDialogSepcial2.File(strPath, Extension:="xlsx", cherche:=True, récursif:=True)
End Sub

Idem , le message MSG_LISTE_VIDE s'affiche.

 

[patricktoulon]

bonsoir staple1600
oui c'est bizarre
sur les 7 pcs que j'ai testé ca marche

recherche recursive des xlsx dans les downloads

recherche du fichier tara.....xlsx dans les downloads recursif

 

[patricktoulon]

les deux fichiers trouvé c'est certainement du a un vbcrlf en bas du texe retourné
j'ai mis un trim mais ça n'a pas l'air de fonctionner avec les sauts de ligne

 

[Staple1600]

Re

@patricktoulon
J'ai trouvé où le bât blessait(*) grâce à ce bon MSDOS
Ton TempString initial était
cmd /C Dir "C:\Users\XXX\Downloads\YYY\*.*.xlsm" /b /a-d > "C:\Users\XXX\desktop\temp_output.txt"

En testant dans l'invite MSDOS, j'obtenais : Fichier introuvable
J'ai donc modifié comme suit et Eureka!

Ensuite j'ai modifié ton VBA ainsi
TempString = Replace("cmd /C Dir ""*****""" & Recurr & " /b /a-d > """ & tempFile & """", "*****", CStr(chemin) & Expression & Extension, 1, -1, vbTextCompare)
Et miracle

(*) avec mon PC et Office 365

 

[patricktoulon]

re Bonjour statple1600
tu va me rendre dingue toi dis moi en quoi la ligne que tu a modifié est différente de la mienne

 

[Staple1600]

Bonjour le fil

@patricktoulon
Dans le classeur que j'avais téléchargé, j'avais

J'ai donc supprimé ce qui est en surbrillance dans ma copie écran
(voir message#67)

Je viens de télécharger de nouveau ton fichier, tu verras que la ligne est telle que décrite ici.
URL du fichier téléchargé

 

[patricktoulon]

re
j'ai pas du mettre la bonne version
j'ai aussi amélioré la version 3 avec FSO encore plus rapide et on peut partir du disque au depart
pour le disk c'est lettre +":" sans le slach

 

[Staple1600]

Re

@patricktoulon
Il reste toujours le 2 fichiers trouvés (alors que le dossier ne contient qu'un seul classeur)
Sinon le reste est OK.

 

[patricktoulon]

oui je cherche comment enlever le dernier vbcrlf dans L

 

[patricktoulon]

re
je n'est pas trouvé plus éleguant
.List = Split(Mid(Liste, 1, Len(Liste) - 1), vbNewLine)

 

[patricktoulon]

@Staple1600
en fait c'est -2 pour le dernier vbcrlf
.List = Split(Mid(Liste, 1, Len(Liste) - 2), vbNewLine)

et enfin pour la version 3 Fso plutôt que de passer par une variable string que je coupe à la fin je passe par une variable array que je redim preserve tout au long de la boucle folder/ file

 

[jurassic pork]

Hello,
il me semble que dans les version 1 et 2 il y a un probléme de conversion OEM vers ANSI (les accents ne sont pas bien affichés) :

Pour corriger ce problème , soit changer le CodePage avant de lancer la commande console ou soit faire la conversion OEM vers ANSI sur le texte récupéré.
Avec la version FSO il n'y a pas ce problème.

Ami calmant, J.P