ช่วยหน่อยครับ อยากดึงไฟล์จาก โฟล์เดอร์หนึ่ง ไปเก็บไว้อีกโฟล์เดอร์หนึ่ง

 Dim a, b As String
        OpenFileDialog1.ShowDialog()
        a = OpenFileDialog1.FileName
        SaveFileDialog1.ShowDialog()
        b = SaveFileDialog1.FileName
        FileCopy(a, b)

 Private Sub Backup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Backup.Click
        MessageBox.Show("ต้องการสำรองข้อมูลใช่หรือไม่", "สำรองข้อมูล", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If Windows.Forms.DialogResult.Yes Then  
            Dim b As String
            SaveFileDialog1.Title = "Save File"
            SaveFileDialog1.FileName = ""
            SaveFileDialog1.Filter = "Access File|*.accdb|ALL|*.*"
            SaveFileDialog1.ShowDialog()
            b = SaveFileDialog1.FileName
            FileCopy("E:\Coffee_Shop_V2\Coffee_Shop\bin\Debug\coffeedb.accdb", b)
        End If

    End Sub