پشتیبان گیری

[maryamb]

سلام دوستان
من می خوام تو برنامم امکان پشتیبان گیری بذارم . ولی نمی دونم چجوری
اگه دقیق راهنماییم کنین ممنون می شم.
و اگه یه نمونه برنامه کوچیک داشته باشید و واسم بزارین که دیگه شرمنده می کنین.

[H4i0 ACP]

سلام
هدف شما پشتیبان گیری از چه نوع فایلیه ؟ « SQL,Acsses یا فایل متنی و سایر فایل ها »
از کل فایل می خواهید پشتیبان گیری کنید یا بخشی از اون ؟
از برنامه و تنظیماتش پشتیبان گیری بشه یا نه ؟
----------------------------------------------------------------------
یه پشتیبان گیری ساده کپی کردن فایل در جای دیگست که اگر این طور باشه به آین آدرس برید .
http://barnamenevis.org/forum/showthread.php?t=103089&page=3
شماره 23 و 24

[maryamb]

ببخشید اون آدرسی که دادید رو قبلا هم گرفته بودم ولی وقتی می خوام فایل زیپ رو اکسترکت کنم می گه نو فایل تو اکسترکت
no file to extract
نمی دونم فایل زیپش مشکل داره یا مشکل از چیز دیگه ای هست
اگه راهنمایی کنین ممنون می شم

[مهران رسا]

می تونی از PropertyBag هم استفاده کنی .

به اینصورت که فایل هایی رو که قرار از اونها پشتیبان گرفته بشه رو دونه دونه باز می کنی و تویع یک متغیر قرار میدی . و بعد اونها رو در یک فایل جدید می نویسی .

[maryamb]

هدف شما پشتیبان گیری از چه نوع فایلیه ؟ « SQL,Acsses یا فایل متنی و سایر فایل ها »
از کل فایل می خواهید پشتیبان گیری کنید یا بخشی از اون ؟


بله از فایل اکسس می خوام پشتیبان گیری کنم.
یعنی پایگاه دادم اکسس هستش. از کلش می خوام یه پشتیبان بگیره که مثلا کاربر برنامه رو که دوباره نصب کرد بتونه اطلاعات رو بازیابی کنه

[مهران رسا]

خوب اگه یه دونه فایله اون رو کپی کن .

بعد برای بازیابی : اول بانک رو ببند بعد فایل از قبل کپی شده رو روی فایل اصلی Replace کن . اگه توضیح بیشتری خواستی بگو .

[H4i0 ACP]

فایل ضمیمه مشکل نداره ، مشکل از یه چیز دیگست :
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
مثال
CopyFile "d:\1.mdb","c:\maghsad.mdb",1

[maryamb]

ببخشید مشکل من همچنان به قوت خودش باقیه !!!

[Mbt925]

مشکلتون کجاست؟

کافیه دیتابیس تونو به محل مقصد کپی کنید.

[فاطمه وطن دوست]

سلام

http://barnamenevis.org/forum/showthread.php?t=25555&highlight=%D9%BE%D8%B4%D8%AA%DB%8C%D8%A8%D8%A7%D9% 86+%DA%AF%DB%8C%D8%B1%DB%8C

http://barnamenevis.org/forum/showthread.php?t=78639&highlight=%D9%BE%D8%B4%D8%AA%DB%8C%D8%A8%D8%A7%D9% 86+%DA%AF%DB%8C%D8%B1%DB%8C


http://barnamenevis.org/forum/search.php?searchid=862167&pp=25&page=2 ---> از اینجا به بعد با خودتون بگردین. :چشمک:

[H4i0 ACP]

سلام
اگر فایل پشتیبان Zip بشه با خراب شدنش نمی شه اون رو درست کرد ولی اگر از خود فایل به صورت عادی کپی تهیه بشه می شه فایل های خراب رو Recover کرد .

[اوبالیت به بو]

با استفاده از FSO:

On Error GoTo errdes
Dim chk As String
CommonDialog1.CancelError = True
Dim FSys As New FileSystemObject
Dim thisFile As File
Dim fld As Folder
Set thisFile = FSys.GetFile(App.Path & "\DataBase.mdb")
CommonDialog1.Filter = "date|*.mdb"
CommonDialog1.FileName = "Data Bank - Backup"
CommonDialog1.DialogTitle = "Data Backup"
CommonDialog1.ShowSave
Dim d As Integer
Dim ln As Integer
Dim SD As String
Dim filenm As String
d = InStrRev(CommonDialog1.FileName, "\")
SD = Mid(CommonDialog1.FileName, 1, d)
Set fld = FSys.CreateFolder(SD & "Backup")
ln = Len(CommonDialog1.FileName)
chk = ln - d
filenm = Right(CommonDialog1.FileName, chk)
thisFile.Copy fld.Path & "\" & filenm
Exit Sub
errdes:
If Err.Number = 32755 Then
Exit Sub
Else
MsgBox Err.Description, vbInformation, "äÑã ÇÝÒÇÑ äÏã - Êåíå äÓÎå ÔÊíÈÇä"
End If

[sajjad1365]

سلام.
ببخشید اگه من بخوام بکاپ خودکار بگیرم.مثلا هر روز خود برنامه از فایل مربوطه در مسیر ازپیش تعین شده پشتیبان بگیره چطور روی فایل قبلی کپی کنه.چون اونوقت پیغام میده که" میخواهید با اسم قبلی کپی کنم؟" پس اتوماتیک نشد که. برای این راهکاری دارید؟
ببخشید

[H4i0 ACP]

سلام.
ببخشید اگه من بخوام بکاپ خودکار بگیرم.مثلا هر روز خود برنامه از فایل مربوطه در مسیر ازپیش تعین شده پشتیبان بگیره چطور روی فایل قبلی کپی کنه.چون اونوقت پیغام میده که" میخواهید با اسم قبلی کپی کنم؟" پس اتوماتیک نشد که. برای این راهکاری دارید؟
ببخشید
سلام
در پست های قبلی بهترین راهش رو گفتم که فقط با دو خط Backup می گیره و امنیتش بالاست و این خطا هارو هم نداره مگر اینکه فایل قفل شده باشه که شما باید اون رو Unlock کنید ....