Guardar archivo

Dim ruta As String="ruta de origen"
sv1.FileName = "nombre del archivo"

            If sv1.ShowDialog = System.Windows.Forms.DialogResult.OK Then
                Try
                    If File.Exists(sv1.FileName) Then
                        Kill(sv1.FileName)
                    End If
                    File.Copy(ruta, sv1.FileName)
                    Kill(ruta)
                    MessageBox.Show("Fin!", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Catch ex As Exception
                End Try
            End If