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
Rispondi quotando
