[VB6] Unire file di testo

[zampa28]

Vi chiedo scusa ma con il VB6 non sono molto pratico, quindi chiedo a voi che sicuramente in 2 minuti mi risolvete il problema.

dati X file di testo (file_1.txt, file_2.txt, ...), qual'è il modo più veloce (per l'applicativo non per me) per unirli?
In pratica devo creare un unico file di testo prendendo le porzioni in ordine.

grazie!

[ans]

utilizzando il comando dos relativo.

prova un po' la seguente funzione.

Sub CombineFilesB(NewFile, ParamArray OldFiles()) 
  Dim CombinedFiles As String 
  For Each FL In OldFiles 
    If Len(CombinedFiles) Then 
      CombinedFiles = CombinedFiles & "+""" & FL & """" 
    Else 
      CombinedFiles = """" & FL & """" 
    End If 
  Next 
  Shell Environ("comspec") & " /c copy /B " & _ 
          CombinedFiles & " """ & NewFile & """", vbHide 
End Sub