CreateObject("Scripting.FileSystemObject")

**claudiobonsai** · 31-05-2007, 15:14

buongiorno a tutti, ho un piccolo problema che mi trapana il cervello......
Sto usando frontpage 2003 per gestire il mio sito personale di bonsai, e volevo fare una pagina per gestire le gallerie di immagini, su questo sito ho trovato del codice javascript ma quando lo eseguo sotto frontpage mi da il seguente errore:

il componente ACTIVEX non può creare l'oggetto: "Scripting.FileSystemObiect"

che cosa mi sono dimenticato di mettere ??

vi allego il poco codice scritto:

<script language="vbscript">

function GalleriaImmagini()

Dim dirname, fso, folder, filez, FileCount

dirname="/images/Biografia/"

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(server.mappath(dirname))
Set filez = folder.Files
FileCount = folder.Files.Count

document.write FileCount

end function

</script>

<html>

<head>
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>

<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0"
marginwidth="0" marginheight="0"
bgcolor="#80A098">

<div style="position: absolute; width: 271px; height: 19px; z-index: 7; left: 147px; top: -38px; border-style: solid; border-width: 2px" id="livello8">
<p align="center">GALLERIAIMMAGINI
</div>

<div style="border-style

utset; position: absolute; width: 509px; height: 417px; z-index: 8; left: 23px; top: 35px" id="livello9">

<script language="vbscript">

GalleriaImmagini()

document.write FileCount

</script>

</div>

</body>
</html>

**Teo80** · 31-05-2007, 21:07

C'è un po' di confusione: scritto com'è lo script gira sul client, mentre tu vuoi far vedere le immagini che si trovano sul server.

Non l'ho provata, ma prova così:

Codice PHP:


<%

sub GalleriaImmagini()



Dim dirname, fso, folder, filez, FileCount



dirname="/images/Biografia/"



Set fso = server.CreateObject("Scripting.FileSystemObject")

Set folder = fso.GetFolder(server.mappath(dirname))

Set filez = folder.Files

FileCount = folder.Files.Count



response.write FileCount



end sub

%>



<html>



<head>

<meta http-equiv="Content-Language" content="it">

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

</head>



<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" 

marginwidth="0" marginheight="0" 

bgcolor="#80A098">





<div style="position: absolute; width: 271px; height: 19px; z-index: 7; left: 147px; top: -38px; border-style: solid; border-width: 2px" id="livello8">

<p align="center">[b]GALLERIAIMMAGINI[/b]

</div>





<div style="border-style:outset; position: absolute; width: 509px; height: 417px; z-index: 8; left: 23px; top: 35px" id="livello9">



<%

GalleriaImmagini()

%>



</div>



</body>

</html>

Discussione: CreateObject("Scripting.FileSystemObject")

Strumenti discussione

Ricerca discussione

Visualizza

CreateObject("Scripting.FileSystemObject") HELP ME !!!

Permessi di invio