Fråga : räkningen nr. av sparar i mappen som ges ett partiskt, namnger

Jag har mappar att namnges:
AV-215 det bäst är ännu till Come
AV-300 för den en Time som du gör den It
AV-215 sorten av gillat dig Before
AV-310 detta är förlägga och det Time
… etc.
I behovet a långt för att mata in, till exempel ”AV-215” och att ha mitt program VB6 att berätta mig hur många sparar sammanlagt mappar med de första teckenen ”AV-215”, total.
 " klar "

Svar : räkningen nr. av sparar i mappen som ges ett partiskt, namnger

REKO nu det ser till och med subfoldersna.

Var säker att passera ett wild kort i NameFragment, som jag indikerade i min första kommentar.
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:

Fungera CountFiles (arkiv som stränger, NameFragment som stränger)
 
    Dunkel fso som anmärker, fld som anmärker, sf som anmärker, fil som anmärker
    Dunkel räkning som Long
 
    Fastställd fso = CreateObject (”Scripting.FileSystemObject”)
    Fastställd fld = fso.GetFolder (arkiv)
 
    'Ta bort, om du inte önskar att kontrollera arkivet sig själv
    För varje fil i fld. Sparar
        Om LCase (fil. Känd) lik LCase (NameFragment) därefter räkning = räkning + 1
    Därefter
 
    För varje sf i fld.SubFolders
        För varje fil i sf. Sparar
            Om LCase (fil. Känd) lik LCase (NameFragment) därefter räkning = räkning + 1
        Därefter
    Därefter
 
    CountFiles = räkning
 
    Fastställd fil = ingenting
    Fastställd sf = ingenting
    Fastställd fld = ingenting
    Fastställd fso = ingenting
 
Avsluta fungerar
Andra lösningar  
 
programming4us programming4us