kan ikke få listet mapper og filer
HejsaJeg har noget kode der lister alle mapper og filer i en defineret mappe. Det virker helt perfekt hvis mappen er lokaliseret på samme maskien men hvis jeg gerne vil have listet indholdet af en mappe fra en anden maskine så virker det ikke(:
Her er koden:
<html>
<head>
<link rel="stylesheet" type="text/css" href="overall.css">
<title></title>
</head>
<body>
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td align="left" width="15%">
</td>
<td align="left" width="85%">
<br><br>
<tr><td>
<h3> <font color='#000000' face='Arial' size='2'>Folderoversigt :</h3>
</tr></td>
<%
sti = "her skrives stien til mappen"
response.write sti
ShowSub = sti & request("ShowSub")
ShowSubLink = request("ShowSub")
strPathInfo = ShowSub
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
response.write"<font color='#000000' face='Arial' size='1'>"
For each Folder in objFolder.SubFolders
If Left(Folder.Name,1)<>"_" Then
Response.write "<tr><td>"
Response.Write "<br> <font color='#000000' face='Arial' size='1'><a href=""" & CurFile & "?ShowSub=" & ShowSubLink & "/"
Response.Write(Replace(Folder.Name, " ", "%20"))
response.write """>"
Response.Write Folder.Name
Response.Write "<br>"
end if
Response.write "</td></tr>"
Next
Set objFSO = Nothing
%>
</td>
</tr>
</table>
<br>
<hr align=center width=95%>
<br>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td align="center" width="100%">
</td>
<td align="left" width="85%">
<tr><td>
<h3> <font color='#000000' face='Arial' size='2'>Filoversigt :</h3>
</tr></td>
<%
'Response.Write ShowSub & "<br>"
'Response.Write strPhysicalPath
'Response.End
SiteName = request.servervariables("script_name")
strPhysicalPath = Server.MapPath(ShowSub)
If ShowSub > " " then
ShowSub = Replace(ShowSub, " ", "%20")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
Set objFolderContents = objFolder.Files
For Each objFileItem in objFolderContents
ShowPic = Replace(objFileItem.Name, " ", "%20")
Response.write "<tr><td>"
Response.Write "<font color='#000000' face='Arial' size='1'> <a href='"&ShowSub &"/"& objFileItem.Name &"'>" & objFileItem.Name & "</a>"
Response.write "</td></tr>"
Next
Set objFSO = Nothing
End if
%>
</td>
</tr>
</table>
</center>
</html>
