FileTree(stifinder)
Hej Eksperter,Jeg er igang med at lave et lille script som skulle gøre det muligt for mig at se mine dir på computeren som i stifinder, jeg er dog rendt i lidt problemer.:
Problemet ligger i at, jeg ikke kan finde ud af hvornår en mappe er tom, og hvis mappen så er tom skal der ikke være mulighed for at klikke videre. Jeg har kommenteret koden der hvor mine fejl forefindes...
<HTML>
<HEAD></HEAD>
<BODY>
<script language="JavaScript">
function getLayer(sender, imageId){
if (document.all[sender].style.display == "none"){
document.all[sender].style.display = "";
document.all[imageId].src = "../../images/unfold.gif";
}else{
document.all[sender].style.display = "none";
document.all[imageId].src = "../../images/fold.gif";
}
}
</script>
<%
rootpath = server.MapPath("../../../../wwwroot/filearchive/folders/")
level = 0
sub getPath(strPath,level)
Set fso = CreateObject("Scripting.FileSystemObject")
Set MainFolder = fso.GetFolder(strPath)
Set Files = MainFolder.Files
Set Folders = MainFolder.subfolders
For Each Folder in Folders
for a = 1 to level
Response.Write " "
next
' if folder empty hide next line
response.Write "<img src=""../../images/fold.gif"" onclick=""getLayer('id" & lcase(folder.name) & "','myid" & lcase(folder.name) & "');"" id=""myid" & lcase(folder.name) & """>"
' end if
response.write "<IMG SRC=""folder.gif""> <B>" & UCASE(folder.name) & "</b><br>"
session.Contents("foldername") = lcase(folder.name)
call getPath(strPath & "\" & lcase(folder.name),level+1)
next
' Dette forekommer 2 gange?!? Naar det bliver skrevet ud..
response.Write("<table id=""id" & session.Contents("foldername") & """ style=""display: none;"">")
' end of comment
For Each File in Files
for a = 1 to level
Response.Write " "
next
response.write "<IMG SRC=""spacer.gif"">" & LCASE(file.name) & "<br>"
next
response.Write("</table>")
set fsObj = Nothing
set MainFolder = Nothing
end sub
call getPath(rootpath,level)
%>
</FONT>
</BODY>
</HTML>
