Question : compte # de dossiers dans la chemise donnée un nom partiel

Je fais appeler des chemises : le
AV-215 le meilleur est encore à Come
AV-300 pendant l'un temps où vous faites It
AV-215 vous avez un peu aimé Before
AV-310 c'est l'endroit et le besoin de Time
… etc.
I une manière d'entrer, par exemple « AV-215 » et faire m'indiquer mon programme VB6 combien de dossiers dans TOUTES LES chemises avec les premiers caractères « AV-215 », total.
class= de

Réponse : compte # de dossiers dans la chemise donnée un nom partiel

OK, maintenant il regarde par les subfolders.

Être sûr de passer un caractère d'ambiguité dans NameFragment, comme j'ai indiqué dans mon premier commentaire.

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 :

Fonction CountFiles (annuaire comme corde, NameFragment comme corde) Faible fso comme objet, fld comme objet, sf comme objet, fil comme objet Obscurcir le compte en tant que longtemps Placer le fso = le CreateObject (« Scripting.FileSystemObject ») Placer le fld = le fso.GetFolder (l'annuaire) 'Enlever si vous ne voulez pas vérifier l'annuaire lui-même Pour chaque fil dans le fld. Dossiers Si LCase (fil. Nom) comme le compte de LCase (NameFragment) puis = le compte + 1 Après Pour chaque sf dans fld.SubFolders Pour chaque fil dans le sf. Dossiers Si LCase (fil. Nom) comme le compte de LCase (NameFragment) puis = le compte + 1 Après Après CountFiles = compte Placer le fil = rien Placer le sf = rien Placer le fld = rien Placer le fso = rien Finir la fonction