il seguente script mi funziona se lo eseguo in locale.. ma se eseguo la stessa pagina htm su altervista non funziona piu!!! come mai???
grazie ciao
codice:
<SCRIPT LANGUAGE=vbscript>
<!--
Dim Drive,folder, subfolder,elemFolder
path="c:\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(path)
Set subfolder = folder.Subfolders
document.write path & "
"
For each elemFolder in subfolder
document.write " " & replace(lcase(elemFolder),lcase(path),"") & "
"
next
Set files = folder.files
For each elemFile in files
document.write " " & replace(lcase(elemFile),lcase(path),"") & "
"
next
//-->
</SCRIPT>