FSO antar jag?

2 svar · 245 visningar · startad av CatZ 20 feb. 2004

CatZMedlem sedan jan. 20022 440 inlägg

Frågan20 feb. 2004 08:12#1

Med anledning av inlägg #792083 i Access Forumet undrar jag hur man skulle kunna tänkas smidigt kolla:

Om det finns en fil med namnet kompakt_databas.mdb
Ta bort filen databas.mdb
Döpa om kompakt_databas.mdb till Databas.mdb

koden för att komprimera databasen ser ut såhär

<%
	Set Engine = CreateObject("JRO.JetEngine")
	Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\") & "\databas.mdb", _
	"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\") & "\kompakt_databas.mdb"
%>

OveRRidEMedlem sedan feb. 200112 078 inlägg

20 feb. 2004 08:34#2

set fso = server.createobject("scripting.filesystemobject")

if fso.fileexists(server.mappath("kompakt_databas.mdb")) then
   set file = fso.getfile(server.mappath("databas.mdb"))
      file.delete()
   set file = nothing
   set file = fso.getfile(server.mappath("kompakt_databas.mdb"))
      file.name = "databas.mdb"
   set file = nothing
end if
set fso = nothing

CatZMedlem sedan jan. 20022 440 inlägg

20 feb. 2004 08:36#3

Tack så mycket OveRRidE det var precis vad jag behövde för att komma igång ;)