This thread is for discussions of Merge Two Files.

I have noticed an error in this code where is says:

       Put nFileNum, lFileLen, b()

it should read

       Put nFileNum, (lFileLen + 1), b()

if you use the original code then you will lose the last byte of data in c:\test2.txt

for example:
test1.txt = hello
test2.txt = people

then the new test2.txt will read 'peoplhello' (notice that the 'e' from people has disappeared)

Thanks for pointing that out. The article has been corrected.

hello

i  do this and it work

Now if somebody can help because I realy want to retrieve my file "Ani1.swf,data.xml" by using 1.chmikir "the concatfile " this is my code

Private Sub Command1_Click()
ConCatFiles "C:\Catlib_V1.0.1\concat_file\1.chmikir", _
                 "C:\Catlib_V1.0.1\concat_file\Ani1.swf", _
                 "C:\Catlib_V1.0.1\concat_file\data.xml"
End Sub

  

Private Function ConCatFiles(sDest As String, ParamArray _
   sInputFiles()) As Boolean

  Dim bTemp() As Byte, nDestFile As Integer
  Dim nSrcFile As Integer, i As Integer
  On Error GoTo ErrHandler
  ReDim sTemp(UBound(sInputFiles()))
  nDestFile = FreeFile
  Open sDest For Binary Access Write As nDestFile
  For i = 0 To UBound(sInputFiles)
      nSrcFile = FreeFile
      Open sInputFiles(i) For Binary Access Read As nSrcFile
      ReDim bTemp(LOF(nSrcFile) - 1)
      Get nSrcFile, , bTemp
      Put nDestFile, , bTemp
      Close nSrcFile
  Next i
  Close nDestFile
  On Error GoTo 0
  ConCatFiles = True
 
  Exit Function

ErrHandler:
  'OPTIONAL, OR CALLER CAN JUST CHECK RETURN VALUE
  'MsgBox "Unable to concatenate files.", vbCritical
  On Error GoTo 0
  Close
End Function