Leer archivos en visual basic

[kichan]

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.

[CeLaYa]

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

Código [Seleccionar] Expandir


    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

[CIBERTHE]

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.

[CeLaYa]

tienes razón me equivoque al "abrir el archivo", para crear el nuevo archivo sería:

Código [Seleccionar] Expandir


Open "c:\...\nuevo_archivo.txt" For Output As #F