Este es el código:
Código:
Dim BD As String = Application.StartupPath & "\sindb.db" Seleccionado = SaveFileDialog1.FileName My.Computer.FileSystem.CopyFile(BD, Seleccionado, showUI:=FileIO.UIOption.AllDialogs, onUserCancel:=FileIO.UICancelOption.DoNothing)
Alguna sugerencia?