Fråga : Hur man drar ned blixtlåset på en gåsmarsch från en blixtlåsförsedd subdirectory

Kära experter,

after som söker för en looooong, lång tid, har jag slutligen klarat av för att skriva kodifierar för att dra ned blixtlåset på EN GÅSMARSCH från en vinande file.

However, när jag har en VINANDE att spara med subdirectories, detta kodifierar inte min work.

So ifrågasätter är, kan dig visa (eller den min omredigeringen) tar prov kodifierar, så mig ska att vara kompetent att dra ned blixtlåset på en gåsmarsch (som kallades A.TXT), från en blixtlåsförsedd subdirectory?

Here är hur man skapar mitt specifika läge på nytt: för den class=" kulan " för

• create fäst för >
  • put " för kula " för arkivC:\TEMP

• paste tar prov däri kodifierar i det omgående fönstret av en class= " kulan " som för Microsoft Office program

• try till extraktet A.TXT

Thank dig för din tid!
Keimpe Wiersma > för

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

" codeBody " ' UnzipTEST ”class= " C:\TEMP\ZIPFILE.ZIP”, ”C:\TEMP,” som DETTA FUNGERAR 'UnzipTEST ”C:\TEMP\ZIPFILE.ZIP”, ”C:\TEMP”, ”SUBDIR,” som DETTA FUNGERAR 'UnzipTEST ”C:\TEMP\ZIPFILE.ZIP”, ”C:\TEMP”, ”A.TXT,” som DETTA INTE FUNGERAR 'UnzipTEST ”C:\TEMP\ZIPFILE.ZIP”, ”C:\TEMP”, ”SUBDIR \ A.TXT,” som DETTA INTE FUNGERAR 'UnzipTEST ”C:\TEMP\ZIPFILE.ZIP”, ”C:\TEMP”,” \ SUBDIR \ A.TXT, " som DETTA INTE FUNGERAR 'UnzipTEST ”C:\TEMP\ZIPFILE.ZIP”, ”C:\TEMP”, ”C:\TEMP\SUBDIR\A.TXT,” som DETTA INTE FUNGERAR strZIPfile underUnzipTEST (som stränger, strOutputFolder som stränger, valfri strSingleFileName som stränger) Dunkel FSO som anmärker Dunkel oApp som anmärker 'Det extraktet sparar in i den nyligen skapade mappen Fastställd oApp = CreateObject (”Shell.Application”) Om strSingleFileName<>"" därefter oApp.Namespace ((strOutputFolder)).CopyHere (strZIPfile) oApp.Namespace (). Items.item ((strSingleFileName)) Annars oApp.Namespace ((strOutputFolder)).CopyHere (strZIPfile) oApp.Namespace (). Objekt Avsluta om Avsluta suben Attachments: för >