Vraag : Nodig het Manuscript van Vb

Heb een manuscript dat prachtig werkt om een pitdossier te vinden en dan het uittreksel dat dossier in een omslag nochtans de pitdossiers snelt die wij van een verkoper zijn geworden heeft omslagen in them.
What I nu moeten doen kan in 2 verschillende richtingen zijn:
1. Als er een manier is om alle dossiers uit de omslagen in het pit aan één omslag te halen.
or
2. Een manuscript dat in zo vele gecre�ërde omslagen en onderzoek uit naar .wav dossiers zal gaan en hen naar een verschillende omslag zal verplaatsen.
" codeBody " 
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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

set = CreateObject („Chilkat.Zip2“)
Schemerige objFSO
Schemerige ofolder
Schemerige objStream
Schemerige strSearch
Schemerige strfolderSearch
Reeks objFSO = CreateObject („scripting.filesystemobject“)
Reeks objStream = objFSO.createtextfile („c:\search.txt“, Waar)
strfolderSearch = „D: “
strSearch = „.zip“
CheckFolder (objFSO.getfolder (strfolderSearch)), objStream
'MsgBox „Voltooide het Onderzoek van het Dossier.“ + vbCr + „te controleren gelieve c:\search.txt details.“
 
Sub CheckFolder (objCurrentFolder, objtxtFile)
Schemerige strTemp
Schemerige strOutput
Schemerige objNewFolder
Schemerige objFile
Schemerige objStream
Voor elk objFile in objCurrentFolder.Files
strTemp = Juist (objFile.Name, 4)
Als UCase (strTemp) = UCase (strSearch) Dan
strOutput = CStr (objFile.Name)
objtxtFile.writeline strfoldersearch + strOutput
ziplocation = strfoldersearch + „\“ + strOutput
ziplocation objtxtFile.writeline
Eind als
Daarna
Voor Elke objNewFolder in objCurrentFolder.subFolders
CheckFolder objNewFolder, objtxtFile
Daarna

'Om het even welk koord opent de component voor de 1st 30 dagen.
succes = zip.UnlockComponent („om het even wat voor 30 dagproef“)
Als (succes <> 1) Dan
    MsgBox zip.LastErrorText
    WScript.Quit
Eind als

succes = zip.OpenZip (ziplocation)
Als (succes <> 1) Dan
    MsgBox zip.LastErrorText
    WScript.Quit
Eind als

'Plaats het wachtwoord nodig om open te ritsen.
'Dit wachtwoord moet het gebruikte wachtwoord aanpassen wanneer het pit
'werd gecre�ërd.
zip.SetPassword „Ech0p@ss“

'Keert het aantal opengeritste dossiers en folders terug.
unzipCount = pit. Rits open („c:\extractedfiles“)
Als (unzipCount < 0) Dan
    MsgBox zip.LastErrorText
Anders
    wscript.sleep (9000) 
Eind als
Sub van het eind

Antwoord : Nodig het Manuscript van Vb

Ik geloof eerste de grootte van de serie terugkeert (aantal elementen) en tweede keert de grootte van één element in de serie terug.
Andere oplossingen  
 
programming4us programming4us