Visual Basic para Aplicaciones - Run-Time error '429'ActiveX component can't create

Tengo un problema con un codigo en VBA que cree para una aplicacion, trato de correr el codigo en Excel '97 y me aparece este error tengo tiempo buscando la solucion y no he podido dar con ella.

Error:

Run-Time error '429':ActiveX component can't create

Sistema Operativo
Windows 98
Office:
Microsoft Excel 97

El error sucede cuando el programa llega a esta seccion del codigo

Set FSO = CreateObject("scripting.filesystemobject")

El Scripting.filesystemobject es el que causa el problema ¿?

Si alguien me puede ayudar con esto le agradeceria mucho llevo mas de 15 dias buscando una solucion para que este programa corra.

Nota: El programa se ejecuta sin problemas en ciertas maquinas pero en otras no :-( no se porque esta pasando esto, ya le instale el office de nuevo pero no resuelve el problema, tenemos la misma version y sistema operativo, solo que en unas corre y en otras marca el error. Alguien conoce la solucion Gracias de antemano

Ing. Zeus Alberto Paez Renteria

Codigo:
Sub AdminFilestoPrinter(User As String, DRAWINGNAME As String, R As Integer, FromPath As String)
'This example copy all files between certain dates from FromPath to ToPath.
'You can also use this to copy the files from the last ? days
'If Fdate >= Date - 30 Then
'Note: If the files in ToPath already exist it will overwrite
'existing files in this folder
Dim FSO As Object
Dim ToPath As String
Dim ToProcesed As String
Dim Fdate As Date
Dim FileInFromFolder As Object
Dim Reset As Boolean
Dim Answer
Dim NOMBREDRAWING As String
Dim Plotter As Integer
Dim Found As Boolean
NOMBREDRAWING = DRAWINGNAME
Confirmacion = False
Reset = False
Found = False
Plotter = 99
Application.DisplayAlerts = False
ToPath = "C:Nesting Control" '<< Change PATH EN COMPUTADORA HDD
ToProcesed = "\Mexmil_mx1groupsManufactureIndustrial EngineeringProcess EngineeringAUTODIM SQCNESTINGProcessed Control System Nesting" ' << Move file to procesed drawing folder
If Right(FromPath, 1) <> "" Then
FromPath = FromPath & ""
End If
If Right(ToPath, 1) <> "" Then
ToPath = ToPath & ""
End If

Set FSO = CreateObject("scripting.filesystemobject")

If FSO.FolderExists(FromPath) = False Then
MsgBox FromPath & " doesn't exist"
Exit Sub
End If

If FSO.FolderExists(ToPath) = False Then
MsgBox ToPath & " doesn't exist"
Exit Sub
End If

si no me equivoco debés tener registrada la siguiente dll

C:WINDOWSsystem32scrrun.dll (path XP)

Saludos desde Baires, JuanC

Muchas Gracias Juan :-)

Sabes eso era regsvr32 "C:WINDOWSsystem32scrrun.dll"

Al centavo Sr. Le debo una, podria usted enviarme una direccion para mandarle un regalo como muestra de agradecimiento.

Gracias.

Ing. Zeus Alberto Paez Renteria

me alegra que haya sido eso nomás...
por si me quieres contactar te dejo mi mail [email protected]

Saludos desde Baires, JuanC