RECHERCHE DE FICHIER (**SCORE A BATTRE**)

Proutie66 Messages postés 141 Date d'inscription samedi 19 octobre 2002 Statut Membre Dernière intervention 14 avril 2008 - 20 oct. 2002 à 19:53
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 17 déc. 2006 à 17:21
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4834-recherche-de-fichier-score-a-battre

mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
17 déc. 2006 à 17:21
Salut PaTaTe, je ne suis pas arogant, c'est juste qu'il aurait vraiment été interessant de pouvoir comparer les temps d'éxécution de chaque source.

Pour une fois qu'il y avait un peu d'action..
Tant pis !

déssolé pour tes sources ^^
++
cs_PaTaTe Messages postés 2126 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 2
17 déc. 2006 à 09:16
mortalino > Sois pas si arogent. Si je ne l'ai pas posté c'est qu'à l'époque j'ai eu un incendie et donc plus de PC donc plus de sources.
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
17 déc. 2006 à 01:05
Salut,

heu elle est où la source de PaTaTe ??
Pas eu le temps depuis 2 ans 1/2 ? :$

++
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 24
6 juil. 2005 à 08:57
Les API ne sont pas forcément rapides. Surtout avec VB ! Appeler une DLL, c'est long.
BozzoDodo Messages postés 185 Date d'inscription vendredi 20 décembre 2002 Statut Membre Dernière intervention 10 janvier 2008
26 nov. 2004 à 22:05
euh... je ne comprend plus trop là... Rassurez moi, c'est quand même bien plus rapide en passant par les apis non?!
Pumax Messages postés 1 Date d'inscription dimanche 10 octobre 2004 Statut Membre Dernière intervention 10 octobre 2004
10 oct. 2004 à 17:24
Ok ! ces tres cool cette recherche !

Mais ci ton code fonction bien et rapidement esqu'il y a un moyen de le stopé en plein action ( ex: annulé la recherche par exemple ) !!!! merci d'avance di mettre le code ci possible !
cs_PaTaTe Messages postés 2126 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 2
23 août 2004 à 17:34
Ok je posterais dans les jours qui suivent.

Le temps de lui adjoindre la recherche sur tous les lecteurs et je le poste :)

@++

PS : c un code deja existant sur VBFrance avec une ou 2 modif si mes souvenirs me trahissent pas
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
20 août 2004 à 08:04
Ok c'est bien PaTaTe dans ce cas je t'invite a nous faire partager ton code c'est le but du jeu trouver le meilleur code de recherche. Il faut savoir aussi que la deuxieme recherche est toujours plus rapide que la premiere a cause des cache qui vont s'enclecher...

@+
cs_PaTaTe Messages postés 2126 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 2
20 août 2004 à 02:15
pas si rapide ke ca (184 sec pour une recherche sur un fichier preci (WinXP Pro P4)

J'ai un code de recherche ki met beaucoup moins de temps qu celui ci :(
TheLsg Messages postés 8 Date d'inscription dimanche 31 août 2003 Statut Membre Dernière intervention 27 novembre 2003
13 mai 2004 à 00:02
J'avais besoin d'une recherche rapide. Mais là, je suis soufflé !!!

Ai testé plusieurs codes du sites, mais là, je ne cherche pas plus loin.

Comme le dit Acive, manque juste la prise en charge de plusieurs lecteurs, mais sinon : Impressionnant !!!

A titre d'exemple : Ai fait une recherche qui m'a donné 11.859 fichiers en seulement 4,78 secondes.

Enfin, le code fonctionne directement tel quel. Ce qui n'a pas été le cas de plusieurs codes trouvés sur ce site.

Bravo, et merci de le partager
Utilisateur anonyme
10 sept. 2003 à 13:53
Salut, génial ton prog... voila je vais le modifier pour scruter tous les disques dur mais sinon rien a dire.
merci
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
15 nov. 2002 à 20:37
Voila ce que j'ai modifier pour voir aussi les repertoires :

Sub RunFolder(ByVal Folder As String)
Dim strFile As String
Dim lngTotal As Long
Dim i As Long

DoEvents

'i = InStrRev(Folder, "")
'If i Then
' List1.AddItem Right(Folder, Len(Folder) - i)
'Else
List1.AddItem Folder
'End If

strFile = Dir(Folder & "" & Pattern, DirFlags)
Do Until strFile = ""
List1.AddItem Folder & "" & strFile
strFile = Dir
Loop

...
...

Tout simplement ! et les dossiers contenant 2 points ou plus passe comme les autres sachant que de toute façon tu ne peus avoir de dossier nommé "...XXX"
ou bien "XXX..."

La liste de repertoire s'appuie sur le control "DirListBox" de VB
donc en principe tout les répertoires sont visible .... mais ....
c'est vrais que plusieurs fichiers passe à la trappe et je ne sait pas
pourquoi j'ai pas encore eu l'occasion de chercher la cause plus que ça !

a+
cs_MyC Messages postés 94 Date d'inscription lundi 23 septembre 2002 Statut Membre Dernière intervention 22 avril 2003
15 nov. 2002 à 11:27
Ton prog est génial, mais j'ai décelé un petit problème si on ajoute la recherche de dossier. Le problème c'est que si un dossier comporte plus de 2 points dans son nom il ne le prend pas en considération et ne l'affiche pas dans la liste ! Si tu as une idée pour le résoudre ?
cs_Nox Messages postés 415 Date d'inscription mardi 3 avril 2001 Statut Membre Dernière intervention 26 avril 2008
21 oct. 2002 à 23:07
Type: *
Racine: C:

Il a trouvé 39870 fichiers dans 1908 dossiers en 48 secondes !!!!
Ton prog me dit "-26000" fichiers.. mais il y en a en fait 40 milles!
petit bug ;/

mais tres rapide!
9/10
ya dejas assez de methode pour rechercher des fichiers sur le site mais au moins elle, elle est innovatrice!!
cs_Warning Messages postés 516 Date d'inscription samedi 3 février 2001 Statut Membre Dernière intervention 24 octobre 2006 2
21 oct. 2002 à 20:04
ouai bof, cette méthode date pas d'hier, je l'ai meme utilisé pour faire mon prog de visualisation d'image pr le dernier concour ... Je pensais que tt le monde la connaissais ... Elle est meme dans l'aide de vb5-6 ...
Voil@, C bien qd meme va ...

@+

W@rning
clementio Messages postés 432 Date d'inscription samedi 18 mai 2002 Statut Membre Dernière intervention 17 février 2014 1
21 oct. 2002 à 19:32
Moi, je peux te proposer mon appli:
http://www.vbfrance.com/article.aspx?Val=4404

Elle semble aussi rapide k toi mais l'interface et plus évoluée.
cs_Koiu Messages postés 269 Date d'inscription jeudi 26 septembre 2002 Statut Membre Dernière intervention 19 février 2015
21 oct. 2002 à 18:20
Cool!!!!
cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
21 oct. 2002 à 14:59
Rapide et simple, c'est bien. Il est possible d'aller bcp + vite : lorsque tu fais un AddItem il y a un rafraichissement de l'écran : je suis sur que ca occupe + de 50 % du temps : il ne faudrait rafraichir que de temps en temps, par exemple lors du changement du dossier en cours. Ou bien alors, faire un freeze de l'écran, sous Access on fait un Application.Echo False ou bien DoCmd.Echo false, mais je ne sais pas si c'est possible en VB. En VB.Net il suffit de faire : Form.SuspendLayout puis ResumeLayout
XGuarden Messages postés 259 Date d'inscription dimanche 14 juillet 2002 Statut Membre Dernière intervention 17 août 2012
21 oct. 2002 à 04:09
Super rapide.Mais tu devrai peu etre ajouter loption ouvrir les fichier en question ou lemplacment.Remarque comme tu mes laccent sur la recherche....Sé super rapide je te donne 10 mais la note change pasgrand chose il vas avoir des con qui vont esayer de se moquer que sé simple mais bon(sa sa vaut dire quelque personne dans les prochain ééé)J'espere puor toi que les con son emdormi ééé
langju Messages postés 88 Date d'inscription mardi 6 février 2001 Statut Membre Dernière intervention 27 juillet 2007
21 oct. 2002 à 00:50
je te met 10 : il n'y a pas plus rapide que la recursivité
langju Messages postés 88 Date d'inscription mardi 6 février 2001 Statut Membre Dernière intervention 27 juillet 2007
21 oct. 2002 à 00:50
Extrêmement rapide !!!!

Bravo !

juste un mot, vive la recursivité !
babeuk Messages postés 47 Date d'inscription jeudi 21 février 2002 Statut Membre Dernière intervention 30 septembre 2003
21 oct. 2002 à 00:13
cool !
Proutie66 Messages postés 141 Date d'inscription samedi 19 octobre 2002 Statut Membre Dernière intervention 14 avril 2008
20 oct. 2002 à 19:53
Exellent soft c kler il est rapide put1 !
un 10 s impose vois pas koi a redire:

-rapide
- et SURTOUT simple
Rejoignez-nous