Estoy atorado (texto plano)

[lokoman]

Hola!
El TRIM recorta los espacios al inicio y al final de un string... no te va a servir para la creacion del archivo.

Te dejo esto:
Agrega estos controles:
• DRIVE (DriveListBox)
• DIR (DirListBox)
• FILE (FileListBox)
• CMD (CommandButton)



Codigo:

Código vb:

Private Sub cmd_Click()
    Dim DATA As String
    Dim I As Integer
 
    For I = 0 To File.ListCount - 1
        Open Dir.Path & "\" & File.List(I) For Binary As #1
            DATA = Space(LOF(1))
            Get #1, , DATA
        
            Open File.Path & "\New_Archivo.txt" For Append As #2
                Print #2, "------------------------------------"
                Print #2, DATA
 
            DoEvents
        Close
    Next I
    
    MsgBox "Proceso completado!!", vbInformation
End Sub
 
Private Sub Dir_Change()
    File.Path = Dir.Path
End Sub
 
Private Sub Drive_Change()
    Dir.Path = Drive.Drive
End Sub
 
Private Sub Form_Load()
    File.Pattern = "*.txt"
End Sub
 

Seleccionas una carpeta con los *.TXT, le das al boton de PROCESAR y se creara un archivo con el contenido de todos los *.TXT de la carpeta que seleccionaste. El nuevo archivo estara en esa misma carpeta.

Ajustalo a tus necesidades.