Pytanie : obliczenie # kartoteka w falcówka dawać częściowy imię

I mieć falcówka wymieniać:
AV-215 The Best Być/> Come
AV-300 Dla The Jeden Czas Ty Robić It
AV-215 Jakby Polubić Ty Before
AV-310 Robić Być The Miejsce I The Time
… etc.
I potrzeba sposób input, na przykład "AV-215" i mój VB6 program ile kartoteka w WSZYSTKIE falcówka z the pierwszy charakter "AV-215", total.

Odpowiedź : obliczenie # kartoteka w falcówka dawać częściowy imię

OK, teraz ono patrzeć przez the subfolders.

Być pewny dzika karta w NameFragment, gdy I wskazywać w mój pierwszy komentarz.
(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:

Funkcja CountFiles (Książka telefoniczna Jako Sznurek, NameFragment Sznurek)
 
    Ciemnawy fso Jako Przedmiot, fld Przedmiot, sf Jako Przedmiot, fil Przedmiot
    Ciemnawy Obliczenie Długo
 
    Ustalony fso = CreateObject ("Scripting.FileSystemObject")
    Ustalony fld = fso.GetFolder (Książka telefoniczna)
 
    'Usuwać jeżeli ty chcieć the książka telefoniczna chcieć
    Dla Fld fil W fld. Kartoteka
        Jeżeli LCase (fil. Imię) Jak LCase (NameFragment) Wtedy Obliczenie = Obliczenie + (1)
    Następnie
 
    Dla Fld.SubFolders sf W fld.SubFolders
        Dla Sf fil W sf. Kartoteka
            Jeżeli LCase (fil. Imię) Jak LCase (NameFragment) Wtedy Obliczenie = Obliczenie + (1)
        Następnie
    Następnie
 
    CountFiles = Obliczenie
 
    Ustalony fil = Nic
    Ustalony sf = Nic
    Ustalony fld = Nic
    Ustalony fso = Nic
 
Końcówka Funkcja
Inne rozwiązania  
 
programming4us programming4us