class= " lineNumbers " del
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
|
class= del
id= " codeSnippet797401 " class= " del ' UnzipTEST “C:\TEMP\ZIPFILE.ZIP„, “C:\TEMP„ che QUESTO FUNZIONA
'UnzipTEST “C:\TEMP\ZIPFILE.ZIP„, “C:\TEMP„, “SUBDIR„ che QUESTO FUNZIONA
'UnzipTEST “C:\TEMP\ZIPFILE.ZIP„, “C:\TEMP„, “A.TXT„ che QUESTO NON FUNZIONA
'UnzipTEST “C:\TEMP\ZIPFILE.ZIP„, “C:\TEMP„, “SUBDIR \ A.TXT„ che QUESTO NON FUNZIONA
'UnzipTEST “C:\TEMP\ZIPFILE.ZIP„, “C:\TEMP„,„ \ SUBDIR \ A.TXT " che QUESTO NON FUNZIONA
'UnzipTEST “C:\TEMP\ZIPFILE.ZIP„, “C:\TEMP„, “C:\TEMP\SUBDIR\A.TXT„ che QUESTO NON FUNZIONA
UnzipTEST secondario (strZIPfile come stringa, strOutputFolder come stringa, strSingleFileName facoltativo come stringa)
FSO fioco come oggetto
oApp fioco come oggetto
'Estrarre le lime nel dispositivo di piegatura di recente creazione
Regolare il oApp = CreateObject (“Shell.Application„)
Se "" del <> dello strSingleFileName allora
oApp.Namespace ((strOutputFolder)).CopyHere oApp.Namespace ((strZIPfile)). Items.item ((strSingleFileName))
Altrimenti
oApp.Namespace ((strOutputFolder)).CopyHere oApp.Namespace ((strZIPfile)). Articoli
Concluder se
Concludere il sommergibile
|