Hola buenas, estoy practicando VB6.0 y tengo un problema al hacer la carga de un .txt seleccionado desde un FileListBox
la aplicación que estoy haciendo consta de varios formularios, en el 1º hay un RichTextBox donde se puede escribir texto o que se cargue.
En el 1º formulario hay una opción para hacer un load del archivo por medio de un cuadro de dialogo, y así mismo hay un botón que llama a un 2º formulario dónde se muestra un explorador por medio de DriveListBox, DirListBox y FileListBox. El problema al hacer la carga desde el FilelistBox es que hay ocasiones en las queno lo ejecuta.
Por ejemplo: el DriveListBox y el DirListBox muestran la ruta de la última vez que accediste a alguno de los discos/carpetas bien por medio de la aplicación o por abrir una carpeta, reconoce como root la ultima ruta almacenada en el explorer del SO.
Si cargo algún archivo de ese directorio no hay problemas, pero si cambio la selección del DirListBox o el DriveListBox me arroja un error = " Error 53 no se encuentra el archivo seleccionado".
Ha probado a cambiar de canal segun haga el load por el dialog o por los listbox y no se soluciona.
Adjunto los códigos del Load (el del dialog no me da ningun problema, pero es por si le afecta en algo)
Codigo del Dialog
Diag
Dim longitud As Integer
Dim texto As String
(...)
diag.Filter = "Archivos de texto (*.txt)|*.txt"
diag.ShowOpen
'para que cuando canceles no de error => IF
If diag.FileName <> "" Then
'abrir fichero canales de 1 a 511
Open diag.FileName For Input As #1
'guardar la longitud
longitud = FileLen(diag.FileName)
'#canal donde hemos guardado el fichero
texto = Input(longitud, #1)
rtxttexto.Text = texto
'cerrar canal
Close #1
End If
flfile => FileListBox
Dim fllongitud As Integer
Dim fltexto As String
(...)
Private Sub flfile_Click()
If flfile.FileName <> "" Then
'abrir fichero canales de 1 a 511
Open flfile.FileName For Input As #1
'guardar la longitud
fllongitud = FileLen(flfile.FileName)
'#canal donde hemos guardado el fichero
fltexto = Input(fllongitud, #1)
Form1.rtxttexto.Text = fltexto
'cerrar canal
Close #1
End If
Form3.Hide
End Sub
Espero qeu me puedan ayudar, muchas gracias.
