Basic - Variable no Definida

   
Vista:

Variable no Definida

Publicado por rey (1 intervención) el 31/07/2009 21:12:58
Hola muchacho: tengo la necesidad de hacer lo siguiente.
necesito procesar un archivo .txt ubicado en una ruta el codigo que estoy implementando me hace el trabajo hasta que va a trabajar con la ruta donde esta mi archivito.
si me pueden ayudar mucho les agradesco por favor el cod es el siguiente:


Esta es mi funsion 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 la clase Seldir, donde me aparece el error:

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

LA LINEA Set colDir = cSelDir.Directorio(sRuta, ext)

ME REDIRIGUE A ESTA CLASE LLAMADA SELDIR QUE DEBE REALIZAR UN PROCESO PARA VALIDARME LA RUTA Y EL ARCHIVO PERO CUANDO LLEGA ME VOTA EL ERROR Q TENDRE MALO Q NO LOGRO VER.

NECESITIO UNA AYUDA
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder