Originariamente inviato da fosforo
Ma vedo le cartelle sul Server.
questo puo' avvenire solo se hai il server in locale...


Con le opportune correzioni ed autorizzazioni a me funziona...
codice:
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<SCRIPT LANGUAGE=vbscript>
<!--
function naviga(path)
 Dim Drive,folder, subfolder,elemFolder
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set folder = fso.GetFolder(path)
 Set subfolder = folder.Subfolders
 carfiles.innerHTML = path & "
"
 For each elemFolder in subfolder
  nomefolder=replace(lcase(elemFolder),lcase(path),"")
  carfiles.innerHTML = carfiles.innerHTML & " <span style=""cursor:hand"" " & replace(elemFolder,"","") & "')"">" & nomefolder & "</span>
"
 next
 Set files = folder.files
 For each elemFile in files
  carfiles.innerHTML = carfiles.innerHTML & " " & replace(lcase(elemFile),lcase(path),"") & "
" 
 next
end function
//-->
</SCRIPT>
<div name=carfiles id=carfiles><span style="cursor:hand" 
<span onclick="vbscript:naviga('C:')">C:</span></div> 
</BODY>
</HTML>
ciao