Path not found - hjælp til sti
jeg bruger nedenstående til at hente den nyeste jpg fra en mappe på iisserveren og bruger server.mappath - det virker - kan ses på den udkommenterede sti - nu vil jeg gerne hente jpg filerne fra en anden server og har problem med at få stien rigtig.<html>
<head> <meta http-equiv="refresh" content="100">
</head>
<%
function GetExt(FileName)
Dim p
GetExt = ""
p = inStr(FileName, ".")
if (p > 0) then GetExt = LCase(Right(FileName, len(FileName) - p))
end function
function GetLastFile(folderspec)
Dim fs, f, f1, fc, s, e
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
lastd = 0
GetLastFile = "Ingen filer"
For Each f1 in fc
if instr(f1.name,".gif")>0 or instr(f1.name,".jpg")>0 then
if f1.DateLastModified > lastd then
GetlastFile = f1.name
end if
end if
Next
End function
'f = GetLastFile(Server.MapPath("snapshot"))
f = GetLastFile("\\RU110101\Gisdata$\NOBC\")
'Response.Write("<br><br>" & f)
%>
<!-- ************************ // filoversigt slut // *************************** -->
<img src="<%= f %>" alt="" border="2">
</body>
</html>
