Te arme una funcion conciderando que en la lista los items se muestran asi.
c:\matias.txt
c:\matias2.txt
c:\matias3.txt
c:\matias4.txt
etc.
Es decir que en cada item esta escrita la direccion del archivo
'******************COMIENZO DE LA FUNCION************************
Private Function UnirArchivos(Lista As ListBox, Destino As String)
'Si hay algun error lleva a la funcion a la etiqueta END1 que esta al final
On Error GoTo End1
'Declaramos Las Variables
Dim nFic As Integer
Dim nFic2 As Integer
Dim TxtArchivo As String
Dim I As Integer
'Si el archivo de "Destino" ya existe lo elimina
If Dir(Destino) <> "" Then Kill Destino
'Le da a "nFic" un numero de archivo disponible
nFic = FreeFile
'Abre el archivo de destino, si no existe lo crea
Open Destino For Append As nFic
For I = 0 To Lista.ListCount - 1
DoEvents
'Le da a "nFic2" un numero de archivo disponible
nFic2 = FreeFile
'Abre el archivo de la lista segundo la posicion "I" y lo almacena en txtArchivo
Open Lista.List(I) For Binary As nFic2
TxtArchivo = Space(LOF(nFic2))
Get #nFic2, , TxtArchivo
Close nFic2
'Escribi la la informacion de el archivo abierto al final del de Destino
Print #nFic, TxtArchivo
Next
'Cierra el "Destino" archivo abierto
Close nFic
Exit Function
'Etiqueta End1
End1:
'Si un archivo de la lista no existe lo informa con un error
If Err.Number = 53 Then
MsgBox "No se encuntra el archivo del item: " & I & Chr(13) & Chr(34) & Lista.List(I) _
& Chr(34), vbCritical, "Error#" & Err.Number
'cierra todos los archivos abiertos
Reset
Exit Function
End If
' si Se produce algun otro tipo de error tambien lo infoma
MsgBox Err.Description, vbCritical, "Error#" & Err.Number
' Cierra todos los archivos abiertos
Reset
End Function
'******************FIN DE LA FUNCION*****************************
la forma para usarla seria:
UnirArchivos Nombre de la lista, Destino para el archivo unido
****************************************************
Espero que te sirva y cualquier duda o cambio que quieras hacerle y no sepas como avime por aca o via mail.
te cuento que con esta funcion podes unir cualquier tipo de archivo con cualquier otro y crear un con la extencion que quieras (igual no tiene mucho sentido)
Saludos Julio
MATIAS (o chicho como quieras)
