สอบถามเรื่องการรวมไฟล์ .txt ให้เป็นไฟล์เดียวครับ(vb)

[bassarnon]

ไฟล์copyไปได้แต่ตัวไฟล์ total มันไม่มีข้อมูลครับ
ต้องการให้ total ไฟล์ที่copyมาทุกไฟล์มีข้อมูลของทุกไฟล์ครับ

ตัวอย่างโค้ดที่เขียนครับ

Code: Select all

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sourceDir As String = "D:\current"
        Dim backupDir As String = "D:\archives\"
        Dim wr As StreamWriter = File.AppendText(backupDir & "total" & ".txt")

        Try
            Dim txtList As String() = Directory.GetFiles(sourceDir, "*.txt")
            For Each f As String In txtList
                Dim fName As String = f.Substring(sourceDir.Length + 1)
                Try
                    File.Copy(Path.Combine(sourceDir, fName), Path.Combine(backupDir, fName))
                    wr.WriteLine("backupDir.ToString")
                Catch copyError As IOException
                    Console.WriteLine(copyError.Message)
                End Try
            Next

        Catch dirNotFound As DirectoryNotFoundException
            Console.WriteLine(dirNotFound.Message)
        End Try
        wr.WriteLine("backupDir.ToString")
        wr.Close()
    End Sub

[snasui]

ลองดูตัวอย่าง Code ที่ Link นี้ครับ https://stackoverflow.com/questions/208 ... ingle-file

[bassarnon]

ครับอาจารย์ ขอบคุณมากครับ

[bassarnon]

ขอรบกวนสอบถามเพิ่มเติม
แล้วถ้าต้องการcopyไฟล์เฉพาะชื่อนั้นๆ และไฟล์ไหนในโฟเดอร์ชื่อซ้ำกัน
ก็copyแค่ไฟล์เดียวครับ ต้องเขียนประมาณไหน พอมีตัวอย่างไหมครับ

[snasui]

คงต้องสร้างตัวแปรไว้เก็บไฟล์สำหรับค่าไฟล์ที่ไม่ซ้ำกันแล้วแล้วค่อย Loop ดึงชื่อไฟล์จากตัวแปรนี้แทนครับ

[bassarnon]

ขอโทษนะครับอาจารย์ ผมมือใหม่พอจะมีตัวอย่างไหมครับ

[snasui]

ต้องขออภัยที่ไม่มีตัวอย่างครับ

ลองใช้แนวคิดที่ผมแนะนำไปเขียนมาดูครับ การกำหนดตัวแปร การใส่ค่าให้ตัวแปร เป็นพื้นฐานของการศึกษา Programming ถ้าไม่เตยเขียนมาก่อนควรศึกษาจากตำราเป็นลำดับมาก่อนครับ

[bassarnon]

ครับผม ขอบคุณสำหรับคำแนะนำครับ