Überprüfung, ob eine MS-Access-Datenbank mit VBscript existiert

Question

Ich habe nach Jahren mit verschiedenen Suchbegriffen gesucht, kann aber keine Antwort auf mein Problem finden.

Ich benutze Asp, um eine MS Access-Datenbank zu manipulieren, die in einem Ordner über dem Stammordner gehalten wird.

in der Datenbank verbinden ich den folgenden Code verwenden, die funktioniert:

set Conn = server.createobject("ADODB.CONNECTION") 
conn.ConnectionString="DBQ=" & server.mappath("../../db") & "\renewx.mdb"& ";Driver={Microsoft Access Driver (*.mdb)};" 

aber ich, dass die Datenbank vorhanden überprüfen möchten, bevor ich verbinden, und hier habe ich einige Schwierigkeiten habe.

für diese Mein Code ist:

set fs=Server.CreateObject("Scripting.FileSystemObject") 
if File.Exists(Server.MapPath("../../db") & "\renewx.mdb") then 
    response.write("renewx dbase exists!<br>") 
else 
    response.write("renewx dbase does not exist!<br>") 
set fs=nothing 
response.end 
end if 
set fs=nothing 

Dies erzeugt den Fehler:

800a01a8|Object_required:_'File' HTTP/1.1 (the line triggering the error is the first line of the if condition)

vielen Dank, wenn jemand mich in die richtige Richtung zeigen kann.

Tog

Answer 1

Versuchen Sie folgendes:

set fs=Server.CreateObject("Scripting.FileSystemObject") 
'if File.Exists(Server.MapPath("../../db") & "\renewx.mdb") then 
if fs.FileExists(Server.MapPath("../../db") & "\renewx.mdb") then 

Answer 2

Stellen Sie sicher, übergeordnete Pfade auf dem IIS-Server aktiviert. Sie sind standardmäßig deaktiviert. Link to Microsoft documentation for IIS 8