Estoy creando un programa en Visual Basic 6.0, el cual necesito
que me lea una cantidad de archivos txt,creados con anterioridad
y que me cree otro archivo txt nuevo
con el contenido de todos los archivos leidos. creo me doy a entender.
agradecesco sus respuestas.
creo que lo más fácil sería poner un FileListBox, darle el path de los archivos txt, ir abriendo cada archivo y en una variable guardar el texto
Dim Texto As String
Dim NuevoTexto As String
Dim F As Long
'aqui le pones el directorio
File1.Path = "c:\..."
File1.Pattern = "*.txt"
For i = 1 To File1.ListCount
'Abres los archivos uno por uno
F = FreeFile
Open File1.List(i) For Input As #F
Input #F, Texto
Close #F
' vas juntando el texto en esta variable
NuevoTexto = NuevoTexto & Texto & vbCrLf
Next i
'y luego pues ya nadamás guardas el nuevo archivo
F = FreeFile
Open "c:\...\nuevo_archivo.txt" For Input As #F
Write #F, NuevoTexto
Close #F
espero te sirva de algo este ejemplo
hola, he leido el post, y me ha parecido interesenta la forma tan sencilla de guardar un archivo, solo que cuando lo he probado no me funciona, quisiera que me ayudaras a crear archivos desde visual basic, ya sea: .txt o .dat. Te agradeceria si pudieras darme una manito con eso.
tienes razón me equivoque al "abrir el archivo", para crear el nuevo archivo sería:
Open "c:\...\nuevo_archivo.txt" For Output As #F