Sử dụng OpenFileDialog để copy file trong VB.Net

Question

Thủ tục dùng để copy File từ thư mục này sang thư mục khác trong VB.net

OpenFileDialog1.Filter = "Image Files (*.bmp, *.jpg,*.png)|*.bmp;*.jpg;*.png"
        OpenFileDialog1.FileName = "Chọn file cần import..."
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            '=======================
            Dim strNewDirPath As String = "E:\" & strMaNhom & "\" & strMaCT & "\"
            'kiem tra duong dan da co hay chua
            If System.IO.Directory.Exists(strNewDirPath) = False Then
                System.IO.Directory.CreateDirectory(strNewDirPath)
            End If
            'lay ten file.png
            txtDirFile.Text = System.IO.Path.GetFileName(OpenFileDialog1.FileName)

            File.Copy(OpenFileDialog1.FileName, strNewDirPath & "\" & txtDirFile.Text, True)
            '=======================
            
        End If