class= " lineNumbers " do
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
|
class= do
id= " codeSnippet797401 " class= " do ' UnzipTEST “C:\TEMP\ZIPFILE.ZIP”, “C:\TEMP” que ISTO TRABALHA
'UnzipTEST “C:\TEMP\ZIPFILE.ZIP”, “C:\TEMP”, “SUBDIR” que ISTO TRABALHA
'UnzipTEST “C:\TEMP\ZIPFILE.ZIP”, “C:\TEMP”, “A.TXT” que ISTO NÃO TRABALHA
'UnzipTEST “C:\TEMP\ZIPFILE.ZIP”, “C:\TEMP”, “SUBDIR \ A.TXT” que ISTO NÃO TRABALHA
'UnzipTEST “C:\TEMP\ZIPFILE.ZIP”, “C:\TEMP”,” \ SUBDIR \ A.TXT " que ISTO NÃO TRABALHA
'UnzipTEST “C:\TEMP\ZIPFILE.ZIP”, “C:\TEMP”, “C:\TEMP\SUBDIR\A.TXT” que ISTO NÃO TRABALHA
UnzipTEST secundário (strZIPfile como a corda, o strOutputFolder como a corda, o strSingleFileName opcional como a corda)
FSO não ofuscante como o objeto
oApp não ofuscante como o objeto
'Extrair as limas no dobrador recentemente criado
Ajustar o oApp = o CreateObject (“Shell.Application”)
Se "" do <> do strSingleFileName então
oApp.Namespace ((strOutputFolder)).CopyHere oApp.Namespace ((strZIPfile)). Items.item ((strSingleFileName))
Mais
oApp.Namespace ((strOutputFolder)).CopyHere oApp.Namespace ((strZIPfile)). Artigos
Terminar se
Terminar o submarino
|