VB.NET Bir klasördeki txt dosyalanının içeriğini nasıl birleştirebilirim?

[Vatansever]

Bir klasörde çok sayıda text dosyası(NotDefteri dosyası) var bunların içlerindeki yazıları birleştirip tek bir text dosyası yapmak istiyorum nasıl yapabilirim
Aşağıdaki kodu buldum nasıl düzenliyceğimi anlamadım

Dim linesFromFile1() As String
Dim linesFromFile2() As String
Dim combinedLines As New List(Of String)  

linesFromFile1 = System.IO.File.ReadAllLines("file1")
linesFromFile2 = System.IO.File.ReadAllLines("file2")

For linePos As Integer = 0 To System.Math.Max(linesFromFile1.Length, linesFromFile2.Length) - 1
    If linePos < linesFromFile1.Length Then combinedLines.Add(linesFromFile1(linePos))
    If linePos < linesFromFile2.Length Then combinedLines.Add(linesFromFile2(linePos))
    Next

System.IO.File.WriteAllLines("file3", combinedLines.ToArray())

Benim çalışmam aşağıda sadece ilk txt dosyasını yeni dosyaya aktarıyor diğerlerini aktarmıyor

        Dim dirs As String() = Directory.GetFiles(Application.StartupPath & "\Yazılar\", "*.txt")
        Dim dosyalar As String
        Dim readText() As String

        For Each dosyalar In dirs
                readText = File.ReadAllLines(dosyalar, Encoding.UTF8) ' sözde bütün dosyaların içeriğini readText içine aktarması lazım sadece birini aktarıyor
        Next

        Dim s As String
        For Each s In readText
            IO.File.AppendAllText(Application.StartupPath & "\YeniTXT.txt", s & vbNewLine, Encoding.UTF8) ' readText içeriğini YeniTXT.txt dosyasına aktarıyor
        Next

:drool:

 

[Vatansever]

Vay be sonunda oldu nasıl gözden kaçırmışım

        Dim dirs As String() = Directory.GetFiles(Application.StartupPath & "\Yazılar\", "*.txt")
        Dim readText() As String
        Dim dosyalar As String

        For Each dosyalar In dirs
                readText = File.ReadAllLines(dosyalar, Encoding.UTF8)
                
                Dim s As String
                For Each s In readText
                    IO.File.AppendAllText(Application.StartupPath & "\YeniTXT.txt", s & vbNewLine, Encoding.UTF8)
                Next
                readText = Nothing ' bir sonraki dosyayı yüklemek için boşaltılıyor
        Next

:tt1:

 

[algea]

Vay be sonunda oldu nasıl gözden kaçırmışım

        Dim dirs As String() = Directory.GetFiles(Application.StartupPath & "\Yazılar\", "*.txt")
        Dim readText() As String
        Dim dosyalar As String

        For Each dosyalar In dirs
                readText = File.ReadAllLines(dosyalar, Encoding.UTF8)
                
                Dim s As String
                For Each s In readText
                    IO.File.AppendAllText(Application.StartupPath & "\YeniTXT.txt", s & vbNewLine, Encoding.UTF8)
                Next
                readText = Nothing ' bir sonraki dosyayı yüklemek için boşaltılıyor
        Next

:tt1:

YeniTXT -> NewText.txt olsa daha iyi olacaktı...

 

[butiksenin]

.NET e gerek yok aslında bunun için cmd de yapabilirsin