<%@ 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