Dim oDirectoryInfo As New DirectoryInfo("rutacarpeta")
If oDirectoryInfo.Exists Then
Dim oFileInfo() As FileInfo
oFileInfo = oDirectoryInfo.GetFiles()
For Each oFileI As FileInfo In oFileInfo
Dim strLine As String
Dim oFile As New StreamReader(oFileI.FullName)
strLine = oFile.ReadToEnd
ofile.close()
Dim oStream As New StreamWriter("RutaArchivoNuevo", True)
oStream.WriteLine(strLine)
oStream.Close()
Next
ENDIF.