¿Mientras que entiendo porqué usted no quiere instalar un programa para hacer esto, usted sería aceptable con una línea de comando de la tercer persona ejecutable que se puede almacenar en el servidor de donde el archivo de hornada se funciona, y referir allí?
(Si tan intento 7-Zip)
la línea de comando 7Zip's archivos puede funcionar de la parte que usted llama el archivo de hornada de y no causar ningunas ediciones de red verdaderas porque el archivo sería ejecutado en el lado de cliente local.
Aunque si usted prefiere no funcionar el archivo remotamente, pero ése no es necesario para este archivo porque es muy pequeño.
Usted puede DL 7Zip aquí:
http://www.7-zip.org/download.html(Si no
entonces ver abajo)
Encontré esta escritura de VB que los purports a hacer exactamente qué usted está buscando, si debe ser hecha sin ningunos archivos de la tercer persona de cualquier clase, después intentaría usar esta escritura de VB que he atado.
NOTA: No escribí esta escritura, yo la encontré aquí:
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:
|
'Escritura de VB PARA RELAMPAGAR un archivo:
fZip de la función (sSourceFolder, sTargetZIPFile)
'Esta función agregará todos los archivos en una carpeta de la fuente a un archivo de CIERRE RELÁMPAGO
“usar capacidad nativa del CIERRE RELÁMPAGO de la carpeta de Windows”.
'Vuelve un número entero 0 si fue todo muy bien.
oShellApp dévil, oFSO, iErr, sErrSource, sErrDescription
Fijar el oShellApp = CreateObject (“Shell.Application”)
Fijar el oFSO = CreateObject (“Scripting.FileSystemObject”)
'La carpeta de la fuente necesita tener a \ en el extremo
Si es derecho (sSourceFolder, 1) <> “\” entonces sSourceFolder = sSourceFolder y “\”
En curriculum vitae del error después
'Si existe un CIERRE RELÁMPAGO de la blanco ya, suprimirlo
Si oFSO.FileExists (sTargetZIPFile) entonces oFSO.DeleteFile sTargetZIPFile, verdad
iErr = Err.Number
En el error 0 indicado
Si iErr <> 0 entonces
fZip = iErr
Salir la función
Terminar si
En error reasumir después
'Escribir el fileheader para un espacio en blanco zipfile.
oFSO.OpenTextFile (sTargetZIPFile, 2, verdad). Escribir “PK” y Chr (5) y Chr (6) y la secuencia (18, Chr (0))
iErr = Err.Number
En el error 0 indicado
Si iErr <> 0 entonces
fZip = iErr
Salir la función
Terminar si
En error reasumir después
'Comenzar a copiar archivos en el cierre relámpago de la carpeta de la fuente.
oShellApp.NameSpace .CopyHere (sTargetZIPFile) oShellApp.NameSpace (sSourceFolder). Artículos
iErr = Err.Number
En el error 0 indicado
Si iErr <> 0 entonces
fZip = iErr
Salir la función
Terminar si
'Porque el copiado ocurre en un proceso separado, la escritura apenas continuará. Funcionar a… LAZO previenen la función
'de la salida hasta el archivo es el relampagar finished.
Hacer hasta oShellApp.NameSpace (sTargetZIPFile). Items.Count = oShellApp.NameSpace (sSourceFolder). Items.Count
WScript.Sleep 500
Lazo
fZip = 0
Función del final
|
