Frage : Zählimpuls # Akten im Faltblatt einen teilweisen Namen gegeben

Ich lasse Faltblätter nennen:
AV-215 das Beste ist schon zu Come
AV-300 während der einer Zeit, die Sie It
AV-215 mochten Sie ein bisschen Before
AV-310 dieses der Platz und die Time
… etc.
I Notwendigkeit eine Weise einzugeben ist, z.B. „AV-215“ und mein Programm VB6 mir erklären zu lassen tun, wieviele Akten in ALLEN Faltblättern mit den ersten Buchstaben „AV-215“, total.

Antwort : Zählimpuls # Akten im Faltblatt einen teilweisen Namen gegeben

O.K., jetzt schaut es durch die Subfolders.

Sicher sein, einen Platzhalter in NameFragment zu führen, wie ich in meiner ersten Anmerkung anzeigte.
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:

Funktion CountFiles (Verzeichnis als Schnur, NameFragment als Schnur)
 
    Schwaches fso als Gegenstand, fld als Gegenstand, sf als Gegenstand, fil als Gegenstand
    Zählimpuls als lang verdunkeln
 
    Fso = CreateObject („Scripting.FileSystemObject“) einstellen
    Fld = fso.GetFolder (Verzeichnis) einstellen
 
    'Entfernen, wenn Sie nicht das Verzeichnis selbst überprüfen möchten
    Für jedes fil im fld. Akten
        Wenn LCase (fil. Name) wie LCase (NameFragment) dann Zählimpuls = Zählimpuls + 1
    Zunächst
 
    Für jedes sf in fld.SubFolders
        Für jedes fil im sf. Akten
            Wenn LCase (fil. Name) wie LCase (NameFragment) dann Zählimpuls = Zählimpuls + 1
        Zunächst
    Zunächst
 
    CountFiles = Zählimpuls
 
    Fil einstellen = nichts
    Sf einstellen = nichts
    Fld einstellen = nichts
    Fso einstellen = nichts
 
Funktion beenden
Weitere Lösungen  
 
programming4us programming4us