Frage : Vb Index benötigt

Einen Index haben, dem die Arbeiten, die, eine Zip Datei zu finden und diese Zip Datei in einem Faltblatt dann jedoch zu extrahieren die Zip Dateien wundervoll sind, die, wir von einem Verkäufer erhalten, Faltblätter in them.
What haben, ich jetzt tun muss kann in 2 verschiedenen Richtungen sein:
1. Wenn es eine Weise gibt, alle Akten von den Faltblättern im Reißverschluss zu einem Faltblatt zu extrahieren.
or
2.. Ein Index, der in da viele Faltblätter verursachte einsteigt und Suche heraus für .wav Akten und verschieben sie auf ein eindeutiges Faltblatt. 
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:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

set Reißverschluss = CreateObject („Chilkat.Zip2“)
Schwaches objFSO
Schwaches ofolder
Schwaches objStream
Schwaches strSearch
Schwaches strfolderSearch
objFSO = CreateObject („scripting.filesystemobject“) einstellen
objStream = objFSO.createtextfile („c:\search.txt“, zutreffend) einstellen
strfolderSearch = „D: “
strSearch = „.zip“
CheckFolder (objFSO.getfolder (strfolderSearch)), objStream
'MsgBox „Akten-Suche abgeschlossen.“ + überprüfen vbCr + „bitte c:\search.txt auf Details.“
 
VorCheckFolder (objCurrentFolder, objtxtFile)
Schwaches strTemp
Schwaches strOutput
Schwaches objNewFolder
Schwaches objFile
Schwaches objStream
Für jedes objFile in objCurrentFolder.Files
strTemp = recht (objFile.Name, 4)
Wenn UCase (strTemp) = UCase (strSearch) dann
strOutput = CStr (objFile.Name)
objtxtFile.writeline strfoldersearch + strOutput
ziplocation = strfoldersearch + „\“ + strOutput
objtxtFile.writeline ziplocation
Beenden wenn
Zunächst
Für jedes objNewFolder in objCurrentFolder.subFolders
CheckFolder objNewFolder, objtxtFile
Zunächst

'Jede mögliche Schnur freisetzt den Bestandteil für die 1. 30 Tage.
Erfolg = zip.UnlockComponent („alles für einen 30 Tagesversuch“)
Wenn (Erfolg <> 1) dann
    MsgBox zip.LastErrorText
    WScript.Quit
Beenden wenn

Erfolg = zip.OpenZip (ziplocation)
Wenn (Erfolg <> 1) dann
    MsgBox zip.LastErrorText
    WScript.Quit
Beenden wenn

'Das Kennwort einstellen benötigt, um zu öffnen.
'Dieses Kennwort muss das verwendete Kennwort zusammenbringen wenn der Reißverschluss
'verursacht.
zip.SetPassword „Ech0p@ss“

'Zurückbringt die Zahl den geöffneten Akten und Verzeichnissen fneten.
unzipCount = Reißverschluss. Öffnen („c:\extractedfiles ")
Wenn (unzipCount < 0) dann
    MsgBox zip.LastErrorText
Sonst
    wscript.sleep (9000) 
Beenden wenn
Unterseeboot beenden

Antwort : Vb Index benötigt

Ich glaube, dass das erste man die Größe der Reihe (Zahl der Elemente) zurückbringt und zweite zurückbringt die Größe von einem Element in der Reihe einem.
Weitere Lösungen  
 
programming4us programming4us