AW: [Database.asp] Access online komprimieren

Wed, 18 Dec 2002 04:21:47 -0800 

<%
Dim objJRO, fso, strOldFile, strNewFile, strBakFile, strSizeOld, strSizeNew,
SourceFile

Set objJRO = Server.CreateObject("JRO.JetEngine")
Set fso = CreateObject("Scripting.FileSystemObject")

strOldFile = Server.MapPath("db.mdb")
strNewFile = Server.MapPath("db.mdb")
strBakFile = Replace(strOldFile, "mdb","BAK")

If (fso.FileExists(strOldFile)) Then
    Set SourceFile = fso.GetFile(strOldFile)
    strSizeOld = SourceFile.Size
    SourceFile.Copy strBakFile

    If (fso.FileExists(strNewFile)) Then
        Set DuplicateFile = fso.GetFile(strNewFile)
        DuplicateFile.Delete
        Response.Write "Tempor�re Datenbank gel�scht!"
    End If

    objJRO.CompactDatabase "Data Source=" & strOldFile, "Data Source=" &
strNewFile
    SourceFile.Delete
    Set CompactedFile = fso.GetFile(strNewFile)
        strSizeNew = CompactedFile.Size
    CompactedFile.Copy strOldFile
    CompactedFile.Delete
%>
<HTML>
 <HEAD>
  <TITLE>DB komprimieren</TITLE>
 </HEAD>

 <BODY BGCOLOR="#CCCCCC" TEXT="#000000">
  <FONT FACE="Verdana" SIZE="2">
  <P>&nbsp;</P>
  <CENTER>
  <P>&nbsp;</P>
  <TABLE WIDTH="50%" BORDER="0">
   <TR>
    <TD COLSPAN="2" ALIGN="center" BGColor="#FF0000"><B>DATEI WURDE
ERFOLGREICH KOMPRIMIERT!
   <TR>
    <TD COLSPAN0"2">&nbsp;
   <TR>
    <TD WIDTH="70%">Gr��e der alten Datenbank:
    <TD WIDTH="30%" ALIGN="center"><%=strSizeOld%> kB
   <TR>
    <TD WIDTH="70%">Gr��e der neuen Datenbank:
    <TD WIDTH="30%" ALIGN="center"><%=strSizeNew%> kB
  </TABLE>
 </BODY>
</HTML>
<%
Else
    Response.Write "<b>" & strOldFile & "</b> - Datenbank nicht gefunden!"
End If

Set objJRO = Nothing
Set fso = Nothing
%>


_______________________________________________
Database.asp mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/database.asp

Antwort per Email an