error en codigo para abrir cadenas separadas

[FresyMetal]

aqui esta el codigo completo y solucionado:
lo unico es una duda como puedo hacer para que el archivo pueda cambiar de nombre?
me refiero a que pueda guardar varias fichas en distintos ficheros
para posteriormente abrirlos según interese.

Código (vb) [Seleccionar] Expandir



'Función Api Sleep Para generar una espera o retardo de tiempo
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub CargarText(Archivo As String)
 Dim Todo As String, Partes() As String, Fichero As Integer
 ' Cargamos todo el contenido del Archivo indicado
Fichero = FreeFile
 Open Archivo For Input As #Fichero
    Line Input #Fichero, Todo
 Close #Fichero
 ' Dividimos en Partes los datos cargados
Partes = Split(Todo, "<<")
 ' Colocamos en cada Text sus datos, tantos Text como Partes
titulo.Text = Partes(0)
Descripcion.Text = Partes(1)
nombre.Text = Partes(2)
mail.Text = Partes(3)
tel1.Text = Partes(4)
tel2.Text = Partes(5)
cuando.Text = Partes(6)
cuando1.Text = Partes(7)
duracion.Text = Partes(8)

End Sub
Private Sub abrir_Click()
dim Archivo as string
Archivo="c:/Archivo.txt"
CargarText(Archivo)
End Sub

Private Sub Command1_Click()
WebBrowser1.Navigate2 Text1.Text
End Sub

Private Sub Command2_Click()

WebBrowser1.SetFocus
'SendKeys ("hola")
End Sub



Private Sub Form_Load()
WebBrowser1.Navigate2 ("http://www.google.es")

End Sub

Private Sub Text2_Change()

End Sub


Private Sub guardar_Click()
Dim foo As Integer
   
   foo = FreeFile
   Open "C:\Archivo.txt" For Output As #foo
       Print #foo, titulo.Text; "<<"; Descripcion.Text; "<<"; nombre.Text; "<<"; mail.Text; "<<"; tel1.Text; "<<"; tel2.Text; "<<"; cuando.Text; "<<"; cuando1.Text; "<<"; duracion.Text
   Close #foo

End Sub



[FresyMetal]

alguna idea? es que ademas si uno de ellos es multilinea solo me coge la primera linea

[79137913]

HOLA!!!

Para abrir varios archivos vas a tener que modificar esta Parte:

Código (vb) [Seleccionar] Expandir


Private Sub abrir_Click()
dim Archivo as string
Archivo="c:/Archivo.txt"
CargarText(Archivo)
End Sub
'Aca cambia lo de archivo = "c:\archivo.text" por algo mas dinamico



Para que te lea mas de una linea del archivo hace:

Código (vb) [Seleccionar] Expandir

Open Archivo For Input As #Fichero
 DO UNTIL  EOF
    INDICE = INDICE +1
    Line Input #Fichero, Todo(INDICE)
 LOOP
Close #Fichero
'Despues te queda todo guardado en el vector Todo.


GRACIAS POR LEER!!!