MOTEUR DE RECHERCHE DE FICHIERS

Commentaire de gilgamesh44 le 02/03/2009 23:02:27

Salut !

Alors, j'ai detecté un petit bug, mais rien de bien grave, quand tu veux faire une recherche à la racine d'un lecteur, il y a un double anti slash.

Cela est bien entendu du à cet evenement:
Private Sub Dir1_Change()
    'J'aime quand la lettre du lecteur est en majuscule
    txtRepDemarrage.Text = UCase(Left(Dir1.Path, 1)) & Right(Dir1.Path, Len(Dir1.Path) - 1) & "\"
End Sub

Tu peux à ton gré adoré une majuscule pour le lecteur. Mais, un petit if sur le dernier caractère pour teste l'antislash serait la bienvenue, cela donnerait:
'J'aime quand la lettre du lecteur est en majuscule
If Right(Dir1.Path, 1) = "\" Then
txtRepDemarrage.Text = UCase(Left(Dir1.Path, 1)) & Right(Dir1.Path, Len(Dir1.Path) - 1)
Else
txtRepDemarrage.Text = UCase(Left(Dir1.Path, 1)) & Right(Dir1.Path, Len(Dir1.Path) - 1) & "\"
End If

Il y a aussi, sur mon PC, la combobox des types choisis qui reste vide à l'affichage, mais sinon, le filtre fonctionne. Tu as un conflit avec les evenements Change & Click. Il faut y faire attention, des reactions inatendues sont tres frequentes.

En revanche, j'aime beaucoup ton utilisation des APIs pour chercher dans les fichiers, et surtout la recursivité très bien utilisée. Au debut, je me demandais pourquoi l'APIs,, mais il vrai que c'est plus difficile à mettre en place de la recursivité avec la fonction DIR(). De plus, l'API cela ramène des tas d'info sur le fichier. Bien vu :).

@ +++.

Commentaire de gilgamesh44 le 08/02/2010 23:43:19

Pour répondre à ta question, VB 6 est un IDE tout en un. C'est à dire qu'il a son propre compilateur intégré. Du coup, tu ne te poses même pas la question.

Un peu comme Visual C++, mais là, pour le coup, il est peut être possible de lui en spécifié un autre.