Vraag : telling # van dossiers in omslag gegeven een gedeeltelijke naam

Ik heb genoemde omslagen:
AV-215 het Beste nog aan Come
AV-300 voor het Één Time You Do It
AV-215 Soort Gehouden van u Before
AV-310 is dit de Plaats is en Time
… etc.
I vergt een manier in te voeren en, bijvoorbeeld „av-215“ mijn VB6 programma te hebben me vertellen hoeveel dossiers in ALLE omslagen met de eerste karakters „av-215“, total.

Antwoord : telling # van dossiers in omslag gegeven een gedeeltelijke naam

O.K., nu kijkt het door subfolders.

Ben zeker om een wilde kaart in NameFragment over te gaan, zoals ik in mijn eerste commentaar wees op.
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:

Functie CountFiles (Folder als Koord, NameFragment als Koord)
 
    Schemerige fso als Voorwerp, fld als Voorwerp, sf als Voorwerp, fil als Voorwerp
    Schemerige Telling zoals lang
 
    Vastgestelde fso = CreateObject („Scripting.FileSystemObject“)
    Reeks fld = fso.GetFolder (Folder)
 
    'Verwijder als u niet de folder zelf wilt controleren
    Voor Elke fil in fld. Dossiers
        Als LCase (fil. Naam) als (NameFragment) toen Telling LCase = Telling + 1
    Daarna
 
    Voor Elke sf in fld.SubFolders
        Voor Elke fil in sf. Dossiers
            Als LCase (fil. Naam) als (NameFragment) toen Telling LCase = Telling + 1
        Daarna
    Daarna
 
    CountFiles = telt
 
    Reeks fil = niets
    Reeks sf = niets
    Reeks fld = niets
    Vastgestelde fso = niets
 
De Functie van het eind
Andere oplossingen  
 
programming4us programming4us