Tjek om fil eksistere

Set objFileSys = Server.CreateObject(\"Scripting.FileSystemObject\")

If objFileSys.FileExists(\'c:\\sager\\fil.doc\') Then
Response.Write \"Fil.doc eksisterer\"
End If

Set objFileSys = Nothing

/Jesper
www.builder.dk

Jeg har lidt probs. Kan det have noget at gøre med at det ligger på vores intranetserver.
Kommer hele tiden med: Filen eksistere ikke... min kode er:

<%
doku=replace(rs(\"cpr\"), \"-\", \"\") & \"_\" & rs(\"aar\")
Set objFileSys = Server.CreateObject(\"Scripting.FileSystemObject\")

If objFileSys.FileExists(\"n:ankenævnssager\\\" & doku & \".doc\") Then
response.write \"Filen eksistere\"
else
response.write \"Filen eksistere ikke\"
End If

Set objFileSys = Nothing
%>

mite

Du skal vistnok være logget ind på serveren for at det kan lade sig gøre. Har du mulighed for det?

<%
\' 1 = Basic, 2 = NTLM
CONST AuthType = 2
strUser = Trim(Request.ServerVariables(\"AUTH_USER\"))
If strUser = \"\" Then
  Response.Status = \"401 Not Authorized\"
  If AuthType = 1 Then
    Response.AddHeader \"WWW-Authenticate\", \"Basic Realm=\"\"Ditsite\"\"\"
  Else
    Response.AddHeader \"WWW-Authenticate\", \"NTLM\"
  End If
  Response.End
End If
%>

Jeg tjekker. Det kan godt være det lige tager et stykke tid. Bliv ikke forbavset hvis det først bliver i morgen.

mite

Den fil du tester på skal jo også ligge på intranetserveren, eller også skal du på intranetserveren have tilsluttet et netværksdrev.

I øjeblikket har vi kun mulighed for at teste om filer eksistere hvis filerne ligger på intranetserveren.
Jeg kan desværre ikke teste programkoden.
Men, men, men point bliver delt ud alligevel 50% til hver, jeg har jo point nok.
Fortsat go´ dag.
mite