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
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
0