Error listado de archivos

[Fabu_dina]

estoy usando el siguiente codigo para enlistar los archivos en una carpeta y me marca el error

Tipo de error:
Microsoft VBScript runtime (0x800A01AD)
ActiveX component can't create object: 'Scripting.FileSystemObject'
/demo/fichas.asp, línea 5

Código:

<% 
nombre_carpeta = Server.MapPath(".") & "\" 
response.write "<h1>-" & nombre_carpeta & "</h1>" 

Set FSO = CreateObject("Scripting.FileSystemObject")

Set carpeta = FSO.GetFolder(nombre_carpeta) 

Set archivos = carpeta.Files 

for each nombre_archivo in archivos 
    response.Write "<br>" & nombre_archivo 
next 
%>

[AlZuwaga]

Sólo por probar, agregá Server. antes de CreateObject.
Otra cosa puede ser que el FSO esté desactivado donde lo estás intentando usar. ¿Es un servidor local de pruebas o un hosting?

[Fabu_dina]

en mi maquina y con server tampoco funciona como puedo activar el FSO

[jochesfor]

Se me ocurre que pruebes algo sencillo y despues algo mas complejo

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(Server.MapPath("../../Carpeta")) 'coloca una carpeta que exista y tenga algo dentro
If folder.Size > 0 Then response.write "el fso esta activado"