hoi, ik heb dit scriptje om te kijken of een bestand bestaat en die dan verwijderen..
de bestandsnaam haalt hij uit de DB..
maar ik krijg deze melding
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'FileExists'
de bestandsnaam haalt hij uit de DB..
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| <%
SessieID = Request.QueryString("SessieID")
set recordset = server.CreateObject("ADODB.recordset")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(Application("vroot") & "database\newuser.mdb")
SelectSQL = "Select * From TblNewUser where sessieid='" & sessieID & "'"
recordset.open selectSQL,strconn,1,2
set fs=server.CreateObject("scripting.filesystemobject")
Response.Write(recordset("fullfilename"))
if fs.FileExists(recordset("fullfilename"))then
fs.DeleteFile(recordset("fullfilename"))
end if
recordset.Close
set recordset=Nothing
set fs=nothing
Response.Write("done<br>")
Response.Write("Go<a href='show_user_request.asp'> Back </a>")
%> |
maar ik krijg deze melding
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'FileExists'