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
%>