จากโค้ดดังกล่าว ผมจะใส่นามสกุลให้ไฟล์ได้อย่างไร่ (copy ไปยังโฟล์เดอร์อื่น) ภาษาเบสิค

Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click


        OpenFileDialog1.ShowDialog() 'สั่งให้เปิด
        TextBox4.Text = OpenFileDialog1.FileName 'เปิดแล้วเอาที่อยู่มาแสดงใน textbox2

       
    End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       

        SaveFileDialog1.ShowDialog()
        TextBox8.Text = SaveFileDialog1.FileName
        
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        FileCopy(TextBox4.Text, TextBox8.Text)
 End Sub