بدون دسته بندی

سوال: کپی از یک فایل مشخص و ذخیره آن در محل دیگر با savefiledialog


با سلام دوستان
من در ریشه روت یه فایل دیتابیس اکسس دارم کلیک بک آپ براش گذاشتم یعنی میخوام از اون فایل اکسس دیتابیس که در مسیر 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 & "dataCantact.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


برنامه نویس
جهت کسب اطلاعات بیشتر به انجمن برنامه نویس مراجعه نمایید

نوشته های مشابه

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

7 − 6 =

همچنین ببینید
بستن
دکمه بازگشت به بالا
WhatsApp chat