Access - Ficheros de texto

Private Sub btnConcatenar_Click()

    Dim strFile As String

    Dim strPath As String

    Dim strConcat As String

    Dim intFileNum As Integer

    strPath = "C:\carpeta\" ' Ruta donde se encuentran los archivos de texto

    ' Seleccionar los archivos de texto a concatenar

    With Application.FileDialog(msoFileDialogOpen)

        .AllowMultiSelect = True

        .InitialFileName = strPath

        .Filters.Clear

        .Filters.Add "Archivos de texto", "*.txt"

        If .Show = -1 Then

            ' Leer el contenido de los archivos seleccionados y concatenarlos

            For Each strFile In .SelectedItems

                intFileNum = FreeFile

                Open strFile For Input As intFileNum

                strConcat = strConcat & vbCrLf & Input$(LOF(intFileNum), intFileNum)

                Close intFileNum

            Next

            ' Guardar el contenido concatenado en un nuevo archivo de texto

            intFileNum = FreeFile

            Open strPath & "archivo_concatenado.txt" For Output As intFileNum

            Print #intFileNum, strConcat

            Close intFileNum

            MsgBox "Se ha creado el archivo concatenado correctamente."

        End If

    End With

End Sub