Вопрос : Как unzip одиночный архив от промелькнутого subdirectory

Дорогие специалисты,

after ища для looooong, долгого времени, я окончательно управлял написать Кодего для того чтобы unzip ОДИН ОДИНОЧНЫЙ АРХИВ от застежка-молнии file.

However, когда я имею архив ЗАСТЕЖКА-МОЛНИИ с subdirectories, это Кодий не делаю work.

So мое вопрос в том, что, могу вы показать (или перезаписать мое) Кодего образца поэтому я сможет unzip один одиночный вызванный архив (A.TXT), от промелькнутого subdirectory?

Here как воссоздать мою специфически ситуацию: >

• create " пули " class=
  
  
  • put " пули " class= C:\TEMP
  
  
  • paste " пули " class= directory
  
  

• try для того чтобы извлечь A.TXT

Thank вы на ваше время!
Keimpe Wiersma class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20:

id= " codeSnippet797401 " class= " ' UnzipTEST «C:\TEMP\ZIPFILE.ZIP», «C:\TEMP», котор ЭТО РАБОТАЕТ 'UnzipTEST «C:\TEMP\ZIPFILE.ZIP», «C:\TEMP», «SUBDIR», котор ЭТО РАБОТАЕТ 'UnzipTEST «C:\TEMP\ZIPFILE.ZIP», «C:\TEMP», «A.TXT», котор ЭТО НЕ РАБОТАЕТ 'UnzipTEST «C:\TEMP\ZIPFILE.ZIP», «C:\TEMP», «SUBDIR \ A.TXT», котор ЭТО НЕ РАБОТАЕТ 'UnzipTEST «C:\TEMP\ZIPFILE.ZIP», «C:\TEMP»,» \ SUBDIR \ A.TXT ", котор ЭТО НЕ РАБОТАЕТ 'UnzipTEST «C:\TEMP\ZIPFILE.ZIP», «C:\TEMP», «C:\TEMP\SUBDIR\A.TXT», котор ЭТО НЕ РАБОТАЕТ Sub UnzipTEST (strZIPfile как шнур, strOutputFolder как шнур, опционное strSingleFileName как шнур) Тусклое FSO как предмет Тусклое oApp как предмет 'Извлеките архивы в нов созданный скоросшиватель Установите oApp = CreateObject («Shell.Application») Если "" <> strSingleFileName после этого oApp.Namespace ((strOutputFolder)).CopyHere oApp.Namespace ((strZIPfile)). Items.item ((strSingleFileName)) Еще oApp.Namespace ((strOutputFolder)).CopyHere oApp.Namespace ((strZIPfile)). Детали Закончитесь если Закончите подводную лодку

class= " lastRow

>Attachments " имени " class= class= " значение "

>