rothen ecotronics Bern: ASP-Skript "ASP Diverses: Aufruf einer Batchverarbeitung zum Zippen von Files mit Wscript.Shell"

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

<html>
  <head>
    <title>ASP Diverses: Aufruf einer Batchverarbeitung zum Zippen von Files mit Wscript.Shell</title>
    <meta name="description" content="" />
    <meta name="keywords" content="" />

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

</body>
</html>

Letzter Update: 26.12.2021 16:48

Zurück zur Liste mit ASP-Beispielen auf www.ecotronics.ch