variable direct

[banrey]

Me explico un poco mejor tengo este cod que me lleva a a un modulo de clase llamado Seldir pero cuando llega a la clase me sale el siguiente error

ERROR DE COMPILACION
VARIABLE NO DEFINIDA


Esta es la funcion LIstar:

Public Function listar(Path As String, ext As String)
'Empieza la acción
Dim sRuta As String
Dim i As Integer
Dim SelectDir As String
'las clases usadas...
'Dim colDir As String
'
#If esOLE Then
'Si usamos la librería OLE
Dim tNombre As New oSelDir.cNombre
Dim cSelDir As New oSelDir.SelDir
#Else
'Si usamos las clases cargadas
Dim tNombre As New cNombre
Dim cSelDir As New SelDir
#End If

On Local Error Resume Next


sRuta = Trim$(Path)
MousePointer = vbArrowHourglass
DoEvents
If Len(ext) Then
'Los archivos del directorio especificado
Set colDir = cSelDir.Directorio(sRuta, ext)
Else
'Sólo el directorio actual
tNombre.Nombre = sRuta
End If
colDir.AddItem tNombre
'End If

'Mostrar el contenido de colDir
List1.Clear
For Each tNombre In colDir
List1.AddItem tNombre.Nombre
Next
Label2 = "Archivos/Directorios hallados: " & List1.ListCount

'Liberar memoria y los objetos
Set tNombre = Nothing
Set colDir = Nothing
Set cSelDir = Nothing
'
'cmdAceptar.Caption = "&Aceptar"
MousePointer = vbDefault
DoEvents
On Local Error GoTo 0
End Function

y esta es mi clase Seldir:(donde es dirigido la variable que contiene la ruta del archivo):



Public Function Directorio(sDir As String, sExt As String) As Variant
'Esta función devolverá una colección del tipo Nombres
'con el contenido de los archivos del directorio indicado
'
Dim colDir As New cNombres

SelectDir.Dir1.Path = sDir

SelectDir.Archivos colDir, sExt

Set Directorio = colDir.Nombres
End Function

Por lo que puedo ver la variable colDir de la funcion Listar esta vacia.

como puedo hacer no entiendo si es ese el error o otro.

Muchas Gracias