Buenas compañer@s.
Hace unos días abrí un post porque no conseguia abrir varios text files con un commondialog.
Aunque tengo un problema parecido, como en el anterior post se me quedó el problema más o menos resuelto, por eso he decido abrir otro. Espero no estar metiendo la pata haciendolo.
A ver, el problema que tenia antes, era que queria abrir varios archivos txt, y lo conseguí con el siguiente código y la ayuda del compi pkj:
Código:
Private Sub Command1_Click()
CommonDialog1.DialogTitle = "Seleccione un archivo con extension ass"
CommonDialog1.Filter = "Archivos con extension .ass|*.ass"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
Exit Sub
Else
Open CommonDialog1.FileName For Input As #1
Text2 = Text2 & CommonDialog1.FileTitle & vbNewLine
Line Input #1, Linea
Text1.Text = Text1.Text & Linea & vbNewLine
Close
End If
End Sub
Con ese código, puedo ir seleccionando varios archivos, y se van cargando en el Text1, solo la primera linea que contiene el text file, y en el Text2, solo el nombre del archivo.
Despues de tirarme tres o cuatro días buscando la posibilidad de seleccionar los distintos text files a la vez, encontre una linea de codigo que me permite hacerlo:
Código:
CommonDialog1.flags = cdlOFNAllowMultiselect Or cdlOFNFileMustExist Or cdlOFNExplorer
Sin embargo, me da
Error '75' en tiempo de ejecucion
Error de acceso a ruta o archivo
Y cuando le doy a depurar, me dice que el error está en la linea:
Código:
Open CommonDialog1.FileName For Input As #1
No sé ya como solucionarlo, si algún alma caritativa quisiera echarme un cable le estay agradecido.
Un saludo.
Alex