Componente ActiveX No puede crear objeto scripting.filesystemobject

[braulillo]

Buenas tardes


Al usar el objeto filesystemobject me da este error.

El código mas o menos es:

Function CargaForm()

Dim fso, CD, ts, opc, i, s, UND
Const ForReading = 1

opc=document.Formulario.Elements(0).value

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

UND="directorio"

Select Case (opc)
Case 0
Set ts = fso.OpenTextFile(UND & "/ruta/archivo.extension", ForReading)
.
.
.
Cual puede ser el problema????

Saludos y gracias.

[PosProdukcion]

¿Has probado a añadir server? Así:

Set fso = server.createObject ("scripting.FileSystemObject")

[braulillo]

Me da error requeriendome un objeto server.

tengo que decir que este html lo tengo en un cd y le pongo la unidad d: y la lee perfectamente.El problema lo estoy teniendo cuando esto lo quiero subir a un ftp y la ruta ya no es d: si no la url del ftp.

Alguien sabe por donde pueden ir los tiros?

[JJF]

Es probable que una dll no esté registrada.



mira, si es en tu máquina, debes ir al boton de inicio, ejecutar, escribe cmd, se abrirá una ventana dos, luego escribes lo siguiente:

regsvr32.exe scrrun.dll

le das Enter y listo, luego funciona.

Espero haber entendido tu consulta.