Pergunta : contagem # das limas no dobrador dado um nome parcial

Eu tenho dobradores nomeados: o
AV-215 o melhor é ainda a Come
AV-300 por o um tempo onde você faz o tipo de It
AV-215 do gostado o Before
AV-310 esta é o lugar e a necessidade de Time
… etc.
I uma maneira de entrar, por exemplo “AV-215” e para mandar meu programa VB6 dizer-me quantas limas em TODOS OS dobradores com os primeiros caráteres “AV-215”, total.
 class= do

Resposta : contagem # das limas no dobrador dado um nome parcial

APROVAÇÃO, agora olha através dos subfolders.

Ser certo passar uma curinga em NameFragment, como eu indiquei em meu primeiro comentário.
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:

Função CountFiles (diretório como a corda, NameFragment como a corda)
 
    Fso não ofuscante como o objeto, fld como o objeto, sf como o objeto, fil como o objeto
    Escurecer a contagem como por muito tempo
 
    Ajustar o fso = o CreateObject (“Scripting.FileSystemObject”)
    Ajustar o fld = o fso.GetFolder (o diretório)
 
    'Remover se você não quer verific o diretório próprio
    Para cada fil no fld. Limas
        Se LCase (fil. Nome) como a contagem de LCase (NameFragment) então = a contagem + 1
    Em seguida
 
    Para cada sf em fld.SubFolders
        Para cada fil no sf. Limas
            Se LCase (fil. Nome) como a contagem de LCase (NameFragment) então = a contagem + 1
        Em seguida
    Em seguida
 
    CountFiles = contagem
 
    Ajustar o fil = nada
    Ajustar o sf = nada
    Ajustar o fld = nada
    Ajustar o fso = nada
 
Terminar a função
Outras soluções  
 
programming4us programming4us