Cara Memilih Foto dan Mengcopynya ke Folder Baru

    Private Sub btn_telusuri_Click(sender As Object, e As EventArgs) Handles btn_telusuri.Click
        On Error Resume Next
        OpenFileDialog1.Filter = "JPG Files(*.jpg)|*.jpg|JPEG Files(*.jpeg)|*.jpeg"
        OpenFileDialog1.FileName = ""
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            pct_gambar.SizeMode = PictureBoxSizeMode.StretchImage
            pct_gambar.Image = New Bitmap(OpenFileDialog1.FileName)
            'btnPilih.Enabled = True
            PathFile = OpenFileDialog1.FileName
            'txt_nmgambar.Text = PathFile.Substring(PathFile.LastIndexOf("\") + 1)
            'lbl_path.Text = OpenFileDialog1.FileName

            Dim lokasi_gambar As String
            lokasi_gambar = OpenFileDialog1.FileName

            Dim namabaru As String
            namabaru = PathFile.Substring(PathFile.LastIndexOf("\") + 1)

            pct_gambar.Image = Image.FromFile(lbl_path.Text)


            System.IO.File.Copy(lokasi_gambar, "D:\" + namabaru + "")

            lbl_path.Text = "D:\" + namabaru + ""

        End If
    End Sub