Frage : Wie man eine einzelne Akte von einem Reißverschluss zugemachten Unterverzeichnis öffnet

Liebe Experten, das

after suchend nach einem looooong, lange Zeit, erreicht ich schließlich, Code zu schreiben, um EINE EINZELNE AKTE von einem Reißverschluss file.

However zu öffnen, wenn ich eine Zip Datei mit Unterverzeichnissen habe, dieser Code tue nicht work.

So meine Frage bin, kann Sie (oder mein neu schreiben) Beispielcode zeigen, also ich in der Lage ist, eine einzelne Akte (genannt A.TXT), von einem Reißverschluss zugemachten Unterverzeichnis zu öffnen?

Here ist, wie man meine spezifische Situation neu erstellt:

  • create ein Verzeichnis-C:\TEMP

  • put die angebrachte Akte in diesem directory

  • paste mein Beispielcode im sofortigen Fenster eines Microsoft Office program

  • try, zum von A.TXT


Thank zu extrahieren Sie während Ihrer Zeit!
Keimpe Wiersma 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

 ' UnzipTEST „C:\TEMP\ZIPFILE.ZIP“, „C:\TEMP,“, das DIESES BEARBEITET
'UnzipTEST „C:\TEMP\ZIPFILE.ZIP“, „C:\TEMP“, „SUBDIR,“, das DIESES BEARBEITET
'UnzipTEST „C:\TEMP\ZIPFILE.ZIP“, „C:\TEMP“, „A.TXT,“, das DIESES NICHT BEARBEITET
'UnzipTEST „C:\TEMP\ZIPFILE.ZIP“, „C:\TEMP“, „SUBDIR \ A.TXT,“, das DIESES NICHT BEARBEITET
'UnzipTEST „C:\TEMP\ZIPFILE.ZIP“, „C:\TEMP“,“ \ SUBDIR \ A.TXT, ", das DIESES NICHT BEARBEITET
'UnzipTEST „C:\TEMP\ZIPFILE.ZIP“, „C:\TEMP“, „C:\TEMP\SUBDIR\A.TXT,“, das DIESES NICHT BEARBEITET
VorUnzipTEST (strZIPfile als Schnur, strOutputFolder als Schnur, wahlweise freigestelltes strSingleFileName als Schnur)
    Schwaches FSO als Gegenstand
    Schwaches oApp als Gegenstand

    'Die Akten in das neu erstellte Faltblatt extrahieren
    oApp = CreateObject („Shell.Application“) einstellen

    Wenn strSingleFileName <> "" dann
        oApp.Namespace ((strOutputFolder)).CopyHere oApp.Namespace ((strZIPfile)). Items.item ((strSingleFileName))
    Sonst
        oApp.Namespace ((strOutputFolder)).CopyHere oApp.Namespace ((strZIPfile)). Einzelteile
    Beenden wenn
        
Unterseeboot beenden
Attachments:
ZIPFILE.ZIP (222 Bytes) (Akten-Art Details)
Sample REISSVERSCHLUSS file

Antwort : Wie man eine einzelne Akte von einem Reißverschluss zugemachten Unterverzeichnis öffnet

Ihr Code adaequat ist für mich, der ein einzelnes vom Reißverschluss in einem Vorfaltblatt extrahiert. Sie konnten überprüfen wünschen, ob Sie Erlaubnis haben, die Akte zur Position zu kopieren, oder, die Akte sicherzustellen nicht verschlossen oder ist, verwendend durch eine andere Anwendung.
Weitere Lösungen  
 
programming4us programming4us