VB.Net อัพโหลดไฟล์ทั้ง folder ลง Server ได้ไหมค่ะ ถ้าทำได้ขอตัวอย่างโค้ดได้ไหมค่ะ เหรอคำแนะนำก็ได้

Dim dInfo As New DirectoryInfo("c:\temp4")
Dim filelist As FileInfo() = dInfo.GetFiles()
Dim i As Integer
For i = 0 To filelist.Length() - 1
filelist(i).CopyTo("c:\temp1\" + filelist(i).Name)
Next

Dim dInfo As New DirectoryInfo("c:\temp4")  <--- แก้ต้นทาง
Dim filelist As FileInfo() = dInfo.GetFiles()
Dim i As Integer
For i = 0 To filelist.Length() - 1
filelist(i).CopyTo("c:\temp1\" + filelist(i).Name) <--- แก้ปลายทาง
Next

Protected Sub btn_upfolder_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_upfolder.Click
        Call newsql()
        Dim Prompt As String = "เลือกไฟล์ที่ต้องการอัพโหลด!"
        Dim Prompt1 As String = "อัพโหลดเรียบร้อยแล้ว!"
        Dim xname As String = folder_up.FileName
        Dim xpath As String = Server.MapPath("testup/" & folder_up.FileName)
        Dim dInfo As New IO.DirectoryInfo("xpath.text")
        Dim filelist As IO.FileInfo() = dInfo.GetFiles()
        If Me.folder_up.HasFile = False Then
            MsgBox(Prompt, , "Information")
        Else
            Dim i As Integer 
            For i = 0 To filelist.Length() - 1
                filelist(i).CopyTo("D:\cashier\testup\" & filelist(i).Name)
                Me.folder_up.SaveAs(Server.MapPath("testup/" & folder_up.FileName))
            Next
            MsgBox(Prompt1, , "Information")
        End If

    End Sub

Imports System.IO

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dInfo As New DirectoryInfo(TextBox1.Text)  'เรียกพาทขึ้นมาจากการกดเลือก
        Dim filelist As FileInfo() = dInfo.GetFiles()
        Dim i As Integer
        For i = 0 To filelist.Length() - 1
            filelist(i).CopyTo(TextBox2.Text + "\" + filelist(i).Name) 'ส่วนนี้ต้องมี \ เพื่อให้มันเข้าไปในโฟรเดอร์ของเราไม่งั้นมันจะไม่เข้า
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim t As Type = GetType(Environment.SpecialFolder) 'เลือก FolderBrowserDialog จาก ToolBox มาใส่ จะได้เลือกเป็นพาท
        With FolderBrowserDialog1
            If (.ShowDialog() = Windows.Forms.DialogResult.OK) Then
                TextBox1.Text = .SelectedPath 'เลือกเเล้วเอามาใส่ใน TextBox1 ซึ่งเป็นต้นทาง
            End If
        End With
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim t As Type = GetType(Environment.SpecialFolder)
        With FolderBrowserDialog1
            If (.ShowDialog() = Windows.Forms.DialogResult.OK) Then
                TextBox2.Text = .SelectedPath 'เลือกเเล้วเอามาใส่ใน TextBox1 ซึ่งเป็นปลายทาง
            End If
        End With
    End Sub
End Class 'เเค่นี้ผ่านฉลุย ทดลองเเล้ว