Visual Basic - Ayuda. Concatenar TXT

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda. Concatenar TXT

Publicado por Javier Z (6 intervenciones) el 13/08/2000 00:00:00
Gente: Necesito una funcion que tome 4 archivos TXT ylos junte en uno solo.
ya lo hice por medio de un archivo bat, pero quiero tenerlo dentro de un codigo visual
gracias
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

RE:Ayuda. Concatenar TXT

Publicado por TrancE (39 intervenciones) el 13/08/2000 00:00:00
Si alguien no te da otra respuesta mejor..(que seguro que lo hay), este creo que te puede venir bien:
Dim I As Byte
Dim Frase As String


Private Sub Command1_Click()
Open "c:\union.txt" For Output As #10
Open "c:\archivo1.txt" For Input As #1
Open "c:\archivo2.txt" For Input As #2
Open "c:\archivo3.txt" For Input As #3
Open "c:\archivo4.txt" For Input As #4

For I = 1 To 4

While Not EOF(I)
Line Input #I, Frase
Print #10, Frase
Wend
Next

Close
End Sub
..........si quieres ejemplos de trabajo con ficheros, mira mi Web: http://usuarios.tripod.es/trancex
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar