mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 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és2126Date d'inscriptionmercredi 21 août 2002StatutContributeurDernière intervention19 février 20212 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és6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 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és4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 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és185Date d'inscriptionvendredi 20 décembre 2002StatutMembreDernière intervention10 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és1Date d'inscriptiondimanche 10 octobre 2004StatutMembreDernière intervention10 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és2126Date d'inscriptionmercredi 21 août 2002StatutContributeurDernière intervention19 février 20212 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és4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 20199 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és2126Date d'inscriptionmercredi 21 août 2002StatutContributeurDernière intervention19 février 20212 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és8Date d'inscriptiondimanche 31 août 2003StatutMembreDernière intervention27 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.
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és4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 20199 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és94Date d'inscriptionlundi 23 septembre 2002StatutMembreDernière intervention22 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és415Date d'inscriptionmardi 3 avril 2001StatutMembreDernière intervention26 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és516Date d'inscriptionsamedi 3 février 2001StatutMembreDernière intervention24 octobre 20062 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és432Date d'inscriptionsamedi 18 mai 2002StatutMembreDernière intervention17 février 20141 21 oct. 2002 à 19:32
Elle semble aussi rapide k toi mais l'interface et plus évoluée.
cs_Koiu
Messages postés269Date d'inscriptionjeudi 26 septembre 2002StatutMembreDernière intervention19 février 2015 21 oct. 2002 à 18:20
Cool!!!!
cs_Patrice99
Messages postés1221Date d'inscriptionjeudi 23 août 2001StatutMembreDerniè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és259Date d'inscriptiondimanche 14 juillet 2002StatutMembreDernière intervention17 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és88Date d'inscriptionmardi 6 février 2001StatutMembreDernière intervention27 juillet 2007 21 oct. 2002 à 00:50
je te met 10 : il n'y a pas plus rapide que la recursivité
langju
Messages postés88Date d'inscriptionmardi 6 février 2001StatutMembreDernière intervention27 juillet 2007 21 oct. 2002 à 00:50
Extrêmement rapide !!!!
Bravo !
juste un mot, vive la recursivité !
babeuk
Messages postés47Date d'inscriptionjeudi 21 février 2002StatutMembreDernière intervention30 septembre 2003 21 oct. 2002 à 00:13
cool !
Proutie66
Messages postés141Date d'inscriptionsamedi 19 octobre 2002StatutMembreDernière intervention14 avril 2008 20 oct. 2002 à 19:53
Exellent soft c kler il est rapide put1 !
un 10 s impose vois pas koi a redire:
17 déc. 2006 à 17:21
Pour une fois qu'il y avait un peu d'action..
Tant pis !
déssolé pour tes sources ^^
++
17 déc. 2006 à 09:16
17 déc. 2006 à 01:05
heu elle est où la source de PaTaTe ??
Pas eu le temps depuis 2 ans 1/2 ? :$
++
6 juil. 2005 à 08:57
26 nov. 2004 à 22:05
10 oct. 2004 à 17:24
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 !
23 août 2004 à 17:34
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
20 août 2004 à 08:04
@+
20 août 2004 à 02:15
J'ai un code de recherche ki met beaucoup moins de temps qu celui ci :(
13 mai 2004 à 00:02
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
10 sept. 2003 à 13:53
merci
15 nov. 2002 à 20:37
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+
15 nov. 2002 à 11:27
21 oct. 2002 à 23:07
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!!
21 oct. 2002 à 20:04
Voil@, C bien qd meme va ...
@+
W@rning
21 oct. 2002 à 19:32
http://www.vbfrance.com/article.aspx?Val=4404
Elle semble aussi rapide k toi mais l'interface et plus évoluée.
21 oct. 2002 à 18:20
21 oct. 2002 à 14:59
21 oct. 2002 à 04:09
21 oct. 2002 à 00:50
21 oct. 2002 à 00:50
Bravo !
juste un mot, vive la recursivité !
21 oct. 2002 à 00:13
20 oct. 2002 à 19:53
un 10 s impose vois pas koi a redire:
-rapide
- et SURTOUT simple