Cuestión : cuenta # de archivos en la carpeta dada un nombre parcial

Hago carpetas nombrar: el
AV-215 el mejor está todavía a Come
AV-300 por el un tiempo que usted hace It
AV-215 un poco tuvo gusto de usted Before
AV-310 ésta es el lugar y la necesidad de Time
… etc.
I una manera de entrar, por ejemplo “AV-215” y hacer que mi programa VB6 me diga cuántos archivos en TODAS LAS carpetas con los primeros carácteres “AV-215”, total.
 class= del

Respuesta : cuenta # de archivos en la carpeta dada un nombre parcial

AUTORIZACIÓN, ahora mira a través de los subfolders.

Estar seguro de pasar un comodín en NameFragment, como indiqué en mi primer comentario.
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:

Función CountFiles (directorio como secuencia, NameFragment como secuencia)
 
    Fso dévil como objeto, fld como objeto, sf como objeto, fil como objeto
    Amortiguar la cuenta como de largo
 
    Fijar el fso = CreateObject (“Scripting.FileSystemObject”)
    Fijar el fld = fso.GetFolder (el directorio)
 
    'Quitar si usted no quiere comprobar el directorio sí mismo
    Para cada fil en fld. Archivos
        Si LCase (fil. Nombre) como la cuenta de LCase (NameFragment) entonces = la cuenta + 1
    Después
 
    Para cada sf en fld.SubFolders
        Para cada fil en sf. Archivos
            Si LCase (fil. Nombre) como la cuenta de LCase (NameFragment) entonces = la cuenta + 1
        Después
    Después
 
    CountFiles = cuenta
 
    Fijar el fil = nada
    Fijar el sf = nada
    Fijar el fld = nada
    Fijar el fso = nada
 
Terminar la función
Otras soluciones  
 
programming4us programming4us