<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = 0
On Error Resume Next
'Kein Resultat
'*****************************************************************
'Variablendeklarationen
Dim objfs
Dim objwshshell
Dim strzipfile
'*****************************************************************
'Variableninitialisierung
strzipfile = "f:\zip\docs.zip"
'*****************************************************************
'Anfang <html>
%>
<!--#include virtual="asppages/silvi/_include/preheader.inc" -->
<html>
<head>
<title>ASP Diverses: Aufruf einer Batchverarbeitung zum Zippen von Files mit Wscript.Shell
</title>
<meta name="description" content="" />
<meta name="keywords" content="" />
<!--#include virtual="asppages/silvi/_include/header.inc" -->
</head>
<body>
<%
'*****************************************************************
'Code innerhalb der HTML-Seite
Set objwshshell = server.CreateObject("WScript.Shell")
'Aufruf der Zip-Routine
call objWshshell.Run ("F:\Programme\utils\zipcl\pacomp.exe -a """ & _
strzipfile & """ ""F:\dateien\excel\*.*""", 1, true)
'Meldung ausgeben
if isobject(objWshshell) then
set objfs = CreateObject("Scripting.FileSystemObject")
if objfs.FileExists(strzipfile) then
Response.Write("Zipdatei " & strzipfile & _
" erfolgreich erzeugt<br />")
else
Response.Write("Zipdatei " & strzipfile & _
" konnte nicht erzeugt werden<br />")
end if
else
Response.Write("Das Batchprogramm konnte nicht aufgerufen werden<br />")
end if
%>
<!--#include virtual="asppages/silvi/_include/inchtmlnachspann.asp" -->
</body>
</html>
Letzter Update:
26.12.2021 17:48
Zurück zur
Liste mit ASP-Beispielen auf
www.ecotronics.ch