Questione : conteggio # delle lime in dispositivo di piegatura dato un nome parziale

Faccio chiamare i dispositivi di piegatura: il
AV-215 il meglio è ancora a Come
AV-300 per una volta che fate il genere di It
AV-215 di gradetto voi Before
AV-310 questo è il posto ed il bisogno di Time
… etc.
I un senso immettere, per esempio “AV-215„ e fare il mio dirmi programma VB6 quante lime in TUTTI I dispositivi di piegatura con i primi caratteri “AV-215„, total.
 class= del

Risposta : conteggio # delle lime in dispositivo di piegatura dato un nome parziale

APPROVAZIONE, ora osserva attraverso i subfolders.

Essere sicuro passare un metacarattere in NameFragment, ho indicato nel mio primo commento.
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:

Funzione CountFiles (indice come stringa, NameFragment come stringa)
 
    Fso fioco come oggetto, fld come oggetto, sf come oggetto, fil come oggetto
    Oscurare il conteggio come lungamente
 
    Regolare il fso = CreateObject (“Scripting.FileSystemObject„)
    Regolare il fld = fso.GetFolder (indice)
 
    'Rimuovere se non volete controllare l'indice in se
    Per ogni fil nel fld. Lime
        Se LCase (fil. Nome) come il conteggio di LCase (NameFragment) allora = il conteggio + 1
    Dopo
 
    Per ogni sf in fld.SubFolders
        Per ogni fil nello sf. Lime
            Se LCase (fil. Nome) come il conteggio di LCase (NameFragment) allora = il conteggio + 1
        Dopo
    Dopo
 
    CountFiles = conteggio
 
    Regolare il fil = niente
    Regolare lo sf = niente
    Regolare il fld = niente
    Regolare il fso = niente
 
Concludere la funzione
Altre soluzioni  
 
programming4us programming4us