Kolla om fil finns :l

[toha]

Mål:

Skicka vidare en session (användare) till en annan URL. Om filen ifråga inte finns så skall ett meddelande om det skrivas ut.

Lösning:

???? :q

------------------
/ Torbjörn Hansson

[Redigerat av toha den 21 jan 2000]

[nanne]

<%
' Detta exempel skall demonstrera hur vi bygger subrutin som
' kontrollerar om en namngiven fil finns. Om filen finns får
' vi True tillbaka i variabeln check, annars blir värdet False.
Option Explicit
Dim fs
dim fil, file, filenamne, check
sub checkfile(filename)
Set fs = CreateObject("Scripting.FileSystemObject")
check = fs.FileExists(server.mappath(filename))
set fs = nothing
end sub

file = "nyfil.txt"
call checkfile(file)
if check then
Response.Write "Filen finns!"
else
Response.Write "Filen finns inte!"
end if
%>

------------------
Daniel Olsson - Teknisk Internetkonsult
<A HREF="http://www.nanne.net" TARGET=_blank>http://www.nanne.net]

/N

</A>