Que onda, como estan 

Yo aca con una consulta 

Miren, tengo creado un Exe ActiveX, llamado XEjecutor.

Tengo otro Exe normal que hace uso del ActiveX, pero estoy teniendo una serie de problemas:

Dentro de este exe normal, si escribo:

Dim Ejec_1 As Object
 
Set Ejec_1 = CreateObject("C:\Documents and Settings\DeathWatch\Mis documentos\XEjecutor.exe")

Sub Main()
' Aqui, se supone que registro el Exe ActiveX, y aparentemente si lo hace, supongo yo...
Shell ("C:\Documents and Settings\DeathWatch\Mis documentos\XEjecutor.exe /RegServer")
' Aqui llamo al Sub Prueba
Prueba
End Sub
 
 
Sub Prueba()
' Aqui instancio al proyecto XProyEjec, a la clase XClsEjec, que se encuentran dentro del ActiveX XEjecutor
Dim Ejec_1 As New XProyEjec.XClsEjec
Set Ejec_1 = New XProyEjec.XClsEjec
 
' Llamo a un procedimiento llamado Proceso, dentro del ActiveX
Ejec_1.Proceso 1
 
' y despejo el objeto.
Set Ejec_1 = Nothing
 
End Sub

Pero obtengo Error de compilacion:
No se ha definido el tipo definido por el usuario.

Donde esta mi falla?

Les comento que la idea NO es entrar en VB, a Proyecto - Referencias, porque este exe normal y el exe activex, siempre se van a ejecutar en una maquina diferente.

Me pueden ayudar por favor?

Gracias de antemano 
Un saludo...

Hola como están 

Como ustedes saben, Visual Basic Script tiene la opción de devolvernos las subcarpetas que se encuentran en la carpeta que le hayamos indicado.

Ej:
Set fso=CreateObject("Scripting.FileSystemObject")
Set carpI=fso.GetFolder("C:\")
Set carpsSub=carpI.SubFolders
 
For Each c in carpsSub
msgbox c
Next

Option Explicit
Dim Rutas
Dim oArch, oLArc, oCarI, oCar, objNovCar, oDirTemp
Dim archI, lecArc, carI, LecLin, novCar, subNCar, DirTemp
Dim subsC
Dim BucSkipLine, Conteo
Dim Mensg
Dim InboxA, InboxB
Dim rutCorrect
Dim verArch
Dim ArchFnl
 
 
Set oDirTemp=CreateObject("Scripting.FileSystemObject")
Set DirTemp=oDirTemp.GetSpecialFolder(2)
 
InboxA=inputbox("Indique la ruta del archivo, el cual tendra la lista de carpetas y subcarpetas" & Chr(13) & Chr(13) & "Use el fomato X:\Carpeta." & Chr(13)& "NO la escriba entre comillas", "Ruta del Archivo", DirTemp)
 
 
If InboxA="" Then
msgbox "Ha elegido Cancelar o no ha escrito texto alguno." & Chr(13) & Chr(13)& "La aplicación se cerrara."
Else
 
Set oCar=CreateObject("Scripting.FileSystemObject")
 
rutCorrect=oCar.FolderExists(InboxA)
 
          If rutCorrect=False Then
          msgbox "La ruta indicada NO existe"
          Else
 
          Mensg=msgbox("Seleccione una de las siguientes opciones:" & Chr(13) & Chr(13) & "Seleccione SI, si quiere que la carpeta inicial sea C:\" & Chr(13) & "Esto incluiria cada carpeta y subcarpetas dentro de C:\" & Chr(13) & "NOTA: Dependiendo de cuantas carpetas tenga su sistema," & Chr(13) & "esto podria tomar varios minutos"& Chr(13) & Chr(13) & "Seleccione NO, si desea seleccionar una ruta en particular" & Chr(13) & Chr(13) & "Seleccione CANCELAR para terminar el programa", 323, "SELECCIONE LA CARPETA INICIAL")
 
                    If Mensg=6 Then
 
                    InboxB="C:\"
                    Directs
 
                    Else
 
                             If Mensg=7 Then
                             InboxB=inputbox("Indique la ruta del archivo, el cual tendra la lista de carpetas y subcarpetas" & Chr(13) & Chr(13) & "Use el fomato X:\Carpeta." & Chr(13)& "NO la escriba entre comillas" & Chr(13) & Chr(13) & "Recuerde que puede incluir C:\", "Ruta del Archivo", DirTemp)
 
 
                                      If InboxB="" Then
                                      msgbox "Ha elegido Cancelar o no ha escrito texto alguno." & Chr(13) & Chr(13) & "La aplicación se cerrara."
                                      Else
 
                                      rutCorrect=oCar.FolderExists(InboxB)
 
                                                  If rutCorrect=False Then
                                                  msgbox "La ruta indicada NO existe"
                                                  Else
                                                  Directs
 
                                                  End If
 
                                      End If
 
                             End If
 
                    End If
 
          End If
 
End If
 
Private Sub Directs()
Set ArchFnl=CreateObject("WScript.Shell")
 
InboxA=InboxA & "\dirs.txt"
Rutas=array(InboxA, InboxB)
 
Set oArch=CreateObject("Scripting.FileSystemObject")
Set archI=oArch.CreateTextFile(Rutas(0), True)
 
Set carI=oCar.GetFolder(Rutas(1))
archI.WriteLine(carI)
archI.Close
 
 
Set oLArc=CreateObject("Scripting.FileSystemObject")
Set lecArc=oLArc.OpenTextFile(Rutas(0), 1)
Set objNovCar=CreateObject("Scripting.FileSystemObject")
 
Conteo=1
 
Do While lecArc.AtEndOfStream=False
 
     On Error Resume Next
 
     LecLin=lecArc.ReadLine
     lecArc.Close
 
     Set novCar=objNovCar.GetFolder(LecLin)
     Set subNCar=novCar.SubFolders
 
          For Each subsC in subNCar
          Set lecArc=oLArc.OpenTextFile(Rutas(0), 8)
          lecArc.WriteLine (subsC)
          lecArc.Close
          Next
 
     Set lecArc=oLArc.OpenTextFile(Rutas(0), 1)
 
          For BucSkipLine=1 to Conteo
          lecArc.SkipLine
          Next
 
     Conteo=Conteo+1
Loop
 
verArch=msgbox ("Ha terminado el proceso" & Chr(13) & Chr(13) & "El archivo creado esta en" & Chr(13) & Chr(13) & InboxA,,"Archivo de directorios")
 
End Sub