Mentre capisco perché non volete installare un programma per fare questo, sareste giusto con una linea di ordine dei terzi eseguibile che può essere immagazzinata sull'assistente da dove lo schedario di lavoro si allontana e riferirsi là?
(In caso affermativo prova 7-Zip)
la linea di ordine 7Zip's lime può allontanarsi dalla parte che denominate lo schedario di lavoro da e non causare alcune edizioni di rete reali perché la lima sarebbe eseguita dal lato locale del cliente.
Benchè se preferite non fare funzionare a distanza la lima, ma quella non sia necessaria per questa lima perché è molto piccola.
Potete DL 7Zip qui:
http://www.7-zip.org/download.html(Se non
allora vedere sotto)
Ho trovato questo scritto di VB che purports da fare esattamente che cosa state cercando, se deve essere fatto a meno di alcune lime dei terzi di qualunque specie, quindi proverei a usando questo scritto che di VB ho attaccato.
NOTA: Non ho scritto questo scritto, io lo ho trovato qui:
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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
|
'Scritto di VB PER CHIUDERE CON CHIUSURA A LAMPO una lima:
fZip di funzione (sSourceFolder, sTargetZIPFile)
'Questa funzione aggiungerà tutte lime in un dispositivo di piegatura di fonte ad una lima di CHIUSURA LAMPO
“using possibilità natale della CHIUSURA LAMPO del dispositivo di piegatura di Windows„.
'Restituisce un numero intero 0 se tutto andasse bene.
oShellApp fioco, oFSO, iErr, sErrSource, sErrDescription
Regolare il oShellApp = CreateObject (“Shell.Application„)
Regolare il oFSO = CreateObject (“Scripting.FileSystemObject„)
'Il dispositivo di piegatura di fonte deve avere a \ sull'estremità
Se di destra (sSourceFolder, 1) <> “\„ allora sSourceFolder = sSourceFolder & “\„
Sul riassunto di errore dopo
'Se una CHIUSURA LAMPO dell'obiettivo esiste già, cancellarla
Se oFSO.FileExists (sTargetZIPFile) allora oFSO.DeleteFile sTargetZIPFile, allineano
iErr = Err.Number
Sull'errore 0 di avanzamento
Se iErr <> 0 allora
fZip = iErr
Uscire la funzione
Concluder se
Sull'errore riprendere dopo
'Scrivere il fileheader per uno spazio in bianco zipfile.
oFSO.OpenTextFile (sTargetZIPFile, 2, allineano). Scrivere “il PK„ & Chr (5) & Chr (6) & stringa (18, Chr (0))
iErr = Err.Number
Sull'errore 0 di avanzamento
Se iErr <> 0 allora
fZip = iErr
Uscire la funzione
Concluder se
Sull'errore riprendere dopo
'Iniziare a copiare le lime nella chiusura lampo dal dispositivo di piegatura di fonte.
oShellApp.NameSpace .CopyHere (sTargetZIPFile) oShellApp.NameSpace (sSourceFolder). Articoli
iErr = Err.Number
Sull'errore 0 di avanzamento
Se iErr <> 0 allora
fZip = iErr
Uscire la funzione
Concluder se
'Poiché la copiatura si presenta in un processo separato, lo scritto continuerà appena. Fare funzionare la a… CICLO impedicono la funzione
'dall'uscita fino alla lima proviene chiudere con chiusura a lampo finished.
Fare fino a oShellApp.NameSpace (sTargetZIPFile). Items.Count = oShellApp.NameSpace (sSourceFolder). Items.Count
WScript.Sleep 500
Ciclo
fZip = 0
Funzione di conclusione
|
