Question : Manuscrit de Vb requis

Avoir un manuscrit que les travaux merveilleux pour trouver un dossier de fermeture éclair et puis extraire ce dossier de fermeture éclair dans une chemise cependant les dossiers de fermeture éclair que nous obtenons d'un fournisseur ont des chemises dans them.
What je dois faire maintenant peux être dans 2 directions différentes :
1. S'il y a une manière d'extraire tous les dossiers à partir des chemises dans la fermeture éclair à une chemise.
or
2.. Un manuscrit qui entrera dans autant de chemises a créé et le découvrir pour des dossiers de .wav et les déplacent à une chemise distincte.
class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 :
fermeture éclair " de " codeSnippet811223 d'id= " de 
set de class= = CreateObject (« Chilkat.Zip2 »)
Faible objFSO
Faible ofolder
Faible objStream
Faible strSearch
Faible strfolderSearch
Placer l'objFSO = le CreateObject (« scripting.filesystemobject »)
Placer l'objStream = l'objFSO.createtextfile (« c:\search.txt », vrais)
strfolderSearch = « D :  »
strSearch = « .zip »
CheckFolder (objFSO.getfolder (strfolderSearch)), objStream
'MsgBox « recherche de dossier accomplie. » + le vbCr + « examinent svp c:\search.txt pour assurer les détails. »
 
CheckFolder secondaire (objCurrentFolder, objtxtFile)
Faible strTemp
Faible strOutput
Faible objNewFolder
Faible objFile
Faible objStream
Pour chacun objFile dans objCurrentFolder.Files
strTemp = droit (objFile.Name, 4)
Si UCase (strTemp) = UCase (strSearch) puis
strOutput = CStr (objFile.Name)
strfoldersearch + strOutput d'objtxtFile.writeline
ziplocation = strfoldersearch + « \ » + strOutput
ziplocation d'objtxtFile.writeline
Finir si
Après
Pour chaque objNewFolder dans objCurrentFolder.subFolders
objNewFolder de CheckFolder, objtxtFile
Après

'N'importe quelle corde ouvre le composant pour les 30 ęrs jours.
succès = zip.UnlockComponent (« quelque chose pour l'épreuve de 30 jours »)
Si (<> de succès 1) puis
    MsgBox zip.LastErrorText
    WScript.Quit
Finir si

succès = zip.OpenZip (ziplocation)
Si (<> de succès 1) puis
    MsgBox zip.LastErrorText
    WScript.Quit
Finir si

'Placer le mot de passe nécessaire pour défaire la fermeture éclair.
'Ce mot de passe doit assortir le mot de passe utilisé quand la fermeture éclair
'a été créé.
zip.SetPassword « Ech0p@ss »

'Renvoie le nombre de dossiers et d'annuaires défaits la fermeture éclair.
unzipCount = fermeture éclair. Défaire la fermeture éclair (« c:\extractedfiles ")
Si (unzipCount < 0) puis
    MsgBox zip.LastErrorText
Autrement
    wscript.sleep (9000) 
Finir si
Finir le sous-marin
class= de

Réponse : Manuscrit de Vb requis

Je crois que le premier renvoie la taille de la rangée (nombre d'éléments) et le second renvoie la taille d'un élément dans la rangée.
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us