Try
Dim n As New SaveFileDialog
n.Filter = ("*.sql|*.sql")
n.InitialDirectory = Environment.SpecialFolder.Desktop
If n.ShowDialog = Windows.Forms.DialogResult.OK Then
IO.File.Copy(Application.StartupPath + "\Database1.sql", n.FileName, True)
MsgBox("تم تصدير القاعده وحفضها بنجاح ")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Try
Dim op As New OpenFileDialog
op.Filter = ("*.sql|*.sql")
op.InitialDirectory = Environment.SpecialFolder.Desktop
If op.ShowDialog = Windows.Forms.DialogResult.OK Then
IO.File.Copy(op.FileName, Application.StartupPath + "\Database1.sql", True)
MsgBox("تم استرجاع القاعده بنجاح")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
