Vraag : Hoe te om één enkel dossier van gesnelde subdirectory open te ritsen

Beste Deskundigen,

after naar een oude looooong zoeken, ben ik definitief erin geslaagd om code te schrijven om ÉÉN ENKEL DOSSIER van een pit file.

However open te ritsen, wanneer ik heb een dossier van het PIT met subdirectories, deze code niet work.

So mijn vraag is, u (of mijn herschrijven) steekproefcode kan tonen zodat ik één enkel dossier (genoemd A.TXT zal kunnen openritsen), van gesnelde subdirectory?

Here moet hoe te mijn specifieke situatie ontspannen:

  • create een folder C:\TEMP

  • put het dossier in bijlage in dat directory

  • paste mijn steekproefcode in het directe venster van Microsoft Office program

  • try " bullet " om A.TXT


Thank te halen u voor uw tijd!
Keimpe Wiersma
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
" notpretty " 
 ' UnzipTEST „C:\TEMP\ZIPFILE.ZIP“, „C:\TEMP“ DIT WERK
'UnzipTEST „C:\TEMP\ZIPFILE.ZIP“, „C:\TEMP“, „SUBDIR“ DIT WERK
'UnzipTEST „C:\TEMP\ZIPFILE.ZIP“, „C:\TEMP“, „A.TXT“ DIT WERKT niet
'UnzipTEST „C:\TEMP\ZIPFILE.ZIP“, „C:\TEMP“, „SUBDIR \ A.TXT“ DIT WERKT niet
'UnzipTEST „C:\TEMP\ZIPFILE.ZIP“, „C:\TEMP“,“ \ SUBDIR \ A.TXT " DIT WERKT niet
'UnzipTEST „C:\TEMP\ZIPFILE.ZIP“, „C:\TEMP“, „C:\TEMP\SUBDIR\A.TXT“ DIT WERKT niet
Sub strZIPfile UnzipTEST (als Koord, strOutputFolder als Koord, Facultatieve strSingleFileName als Koord)
    Schemerige FSO als Voorwerp
    Schemerige oApp als Voorwerp

    'Uittreksel de dossiers in de pas gecreëerde omslag
    Reeks oApp = CreateObject („Shell.Application“)

    Als strSingleFileName <> "" toen
        oApp.Namespace ((strOutputFolder)).CopyHere (strZIPfile) oApp.Namespace (). Items.item ((strSingleFileName))
    Anders
        oApp.Namespace ((strOutputFolder)).CopyHere (strZIPfile) oApp.Namespace (). Punten
    Eind als
        
Sub van het eind
Attachments:
van
ZIPFILE.ZIP (222 bytes) Sample PIT file

Antwoord : Hoe te om één enkel dossier van gesnelde subdirectory open te ritsen

Uw codewerken zuiveren voor me dat enig uit het pit in een subomslag haalt. U zou kunnen willen controleren als u toestemmingen hebt om het dossier te kopiëren aan de plaats of het dossier ervoor te zorgen bent niet gesloten wordt of gebruikt door een andere toepassing.
Andere oplossingen  
 
programming4us programming4us