با سلام دوستان
من در ریشه روت یه فایل دیتابیس اکسس دارم کلیک بک آپ براش گذاشتم یعنی میخوام از اون فایل اکسس دیتابیس که در مسیر date/Cantact.accdb قرار دارد اتوماتیک کپی بگیرد و با استفاده از پنجره savedialogfile هر کجا خواستم ذخیره کنه.
ممنون میشم کمک کنید


اینم کد که در ریشه اتوماتیک ذخیره میشه میخوام با استفاده از savedialofile بتونم هر جا بخوام ذخیره کنم.


        Try

                        'set the destination and a file name with the date and time

            Dim backupfiledestination As String = Application.StartupPath & "" & "backup_golden" & Format(Now(), "_yyyy-M-d_H-m-s") & ".accdb"

            'location of the database file that you want to backup

            Dim databaseFile As String = Application.StartupPath & "\data\Cantact.accdb"



            'create a backup by using Filecopy Command to copy the file from  location to destination

            FileCopy(databaseFile, backupfiledestination)

            MessageBox.Show("پشتیبان گیری با موفقیت انجام شد.", "پیغام پشتیبان گیری", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception

            'catch an error  

            MsgBox(ex.Message)



        End Try