PDA

View Full Version : سوال: بک آپ اتوماتیک



saeed hg
پنج شنبه 03 شهریور 1390, 12:07 عصر
سلام دوستان. من یه برنامه با ویبی دات نت 2008 و بانک اکسس نوشتم و یه تابع برای بک آپ دارم و یکبار در رویداد Leave و دفعه ی بعدی در رویداد Formclosing از تابع backupDB() استفاده کردم اما بک آپ نگرفت .
چه جوری میشه این مشکل رو حل کرد؟ به نظر شما این استراتژی برای بک آپ گرفتن درسته؟ (نرم افزار مدیریت یه کتابخونه ی کوچیک با مثلا 70عضو. )



Function backupDB() As Boolean

If Not IO.Directory.Exists("DB Backup") Then
IO.Directory.CreateDirectory("DB Backup")
End If
My.Computer.FileSystem.WriteAllText(Application.St artupPath & "\DB Backup\history.doc", "تاریخ و زمان بک آپ گرفتن " & vbNewLine & Now.Hour & ":" & Now.Minute & ":" & Now.Second & "__" & Shamsi_Date(Date.Today), False)
IO.File.Copy(DB_FILE_NAME, "DB Backup\" & DB_FILE_NAME, True)

Return True
End Function