Während ich verstehe, warum Sie nicht ein Programm anbringen möchten, um dies zu tun, sein Sie mit einer von vollziehbaren Befehlszeile der 3. okay Partei, die auf dem Bediener gespeichert werden, dem die Reihenakte laufen gelassen und dort bezogen werden kann?
(Wenn so Versuch 7-Zip)
7Zip's Befehlszeile Akten kann vom Anteil laufen, den Sie die Reihenakte von und keine realen Netzausgaben zu verursachen benennen, weil die Akte auf der lokalen Klientenseite durchgeführt.
Obwohl, wenn Sie, es vorziehen die Akte, aber, die nicht entfernt laufen zu lassen nicht für diese Akte notwendig ist, weil sie sehr klein ist.
Sie können DL 7Zip hier:
http://www.7-zip.org/download.html(Wenn
nicht dann sehen unten)
Ich fand diesen VB Index, der nach die Behauptungen, zum genau zu tun, was Sie suchen, wenn er ohne irgendwelche Akten der 3. Partei irgendeiner Art erfolgt werden muss, dann versuchen ich, diesen VB Index zu verwenden, den ich angebracht.
ANMERKUNG: Ich schrieb nicht diesen Index, ich fand ihn hier:
http://www.visualbasicscript.com/m53086.aspx
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
|
'VB Index, zum einer Akte REISSVERSCHLUSS ZUZUMACHEN:
Funktion fZip (sSourceFolder, sTargetZIPFile)
'Diese Funktion hinzufügt alle Akten in einem Quellfaltblatt einer Zip Datei ll-
„using Windows-“ gebürtige Faltblatt REISSVERSCHLUSS-Fähigkeit.
'Zurückbringt eine ganze Zahl 0 ringt, wenn alles o.k. ging.
Schwaches oShellApp, oFSO, iErr, sErrSource, sErrDescription
oShellApp = CreateObject („Shell.Application“) einstellen
oFSO = CreateObject („Scripting.FileSystemObject“) einstellen
'Das Quellfaltblatt muss a \ am Ende haben
Wenn recht (sSourceFolder, 1) <> „\“ dann sSourceFolder = sSourceFolder u. „\“
Auf Störungs-Zusammenfassung zunächst
'Wenn ein Ziel REISSVERSCHLUSS bereits existiert, ihn löschen
Wenn oFSO.FileExists (sTargetZIPFile) dann oFSO.DeleteFile sTargetZIPFile, ausrichten
iErr = Err.Number
Auf Störung Goto- 0
Wenn iErr <> 0 dann
fZip = iErr
Funktion herausnehmen
Beenden wenn
Auf Störung zunächst wieder.aufnehmen
'Das fileheader für einen zipfile freien Raum schreiben.
oFSO.OpenTextFile (sTargetZIPFile, ausrichten 2,). „PK“ u. Chr schreiben (5) u. Chr (6) u. Schnur (18, Chr (0))
iErr = Err.Number
Auf Störung Goto- 0
Wenn iErr <> 0 dann
fZip = iErr
Funktion herausnehmen
Beenden wenn
Auf Störung zunächst wieder.aufnehmen
'Anfangen, Akten in den Reißverschluss vom Quellfaltblatt zu kopieren.
oShellApp.NameSpace (sTargetZIPFile) .CopyHere oShellApp.NameSpace (sSourceFolder). Einzelteile
iErr = Err.Number
Auf Störung Goto- 0
Wenn iErr <> 0 dann
fZip = iErr
Funktion herausnehmen
Beenden wenn
'Weil die Kopie in einem unterschiedlichen Prozess auftritt, fortfährt der Index gerade hrt. A laufen lassen… die SCHLEIFE, welche die Funktion verhindert
'vom Herausnehmen bis die Akte ist das fertige Reißverschluss zumachen.
Bis oShellApp.NameSpace tun (sTargetZIPFile). Items.Count = oShellApp.NameSpace (sSourceFolder). Items.Count
WScript.Sleep 500
Schleife
fZip = 0
Enden-Funktion
|
