بک آپ اختصاصی

[blake_daniel]

سلام به همه دوستان.
اول از همه بگم که سرچ زیاد انجام دادم چیزی ندیدم.خودمم زیاد سعی کردم ولی نتونستم تمومش کنم.
سوالم اینه که چجوری میتونم محتویات یک فولدر(چندتا دیتابیس اکسس)رو کپی کنم و در مسیری که کاربر مشخص میکنه یک فولدر بسازم که اسمش تاریخ همون روز باشه و محتویات رو توش بریزم؟
اینم کد ولی خودمم چیزی ازش سر در نیاوردم:


Dim Name As String
Dim Copy As String
Name = Format$(form1.Date1.today, "YYYY-MM-DD")
CD.FileName = Name
CD.ShowSave
MkDir (CD.FileName)
Copy = CopyFiles(CStr(App.Path + "\Database\Forms Database\"), CStr(CD.FileName), CInt(True), CStr(".mdb"))
MsgBox "ÔÊíÈÇä íÑí ÇäÌÇã ÔÏ", , "Done"



البته کپی فولدر به وسیله یک ماژول انجام میشه که اگه بتونین با fso بهم بگین بهتره.
با تشکر.

[blake_daniel]

هیچکس نیست جواب منو بده؟
میرما:لبخند:

[SlowCode]

سلام
این کد کپی کردن پوشه است:
Set fso = CreateObject("scripting.filesystemobject")
fso.copyfolder "C:\New Folder", "D:\" & Date$, True
برای انتخاب مسیر پوشه هم بهتره خودت یه صفحه طراحی کنی (با کنترل های DirveListBox, DirListBox) متاسفانه CommonDialog اینو نداره(البته توی ابزار codejock وجود داره) اگه با اون کنترل ها کار کنی کدش میشه این:
Private Sub cmdCopy_Click()
Set fso = CreateObject("scripting.filesystemobject")
fso.copyfolder "C:\New Folder", Dir1.Path & "\" & Date$, True
Set fso = Nothing
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

[blake_daniel]

آقا محسن سلام.
من ابزار codejock رو تو برنامم دارم.
اگه مشکلی نیست کد برای اون کنترل رو بهم بده.
مرسی.

[SlowCode]

سلام، بفرما
CD.ShowBrowseFolder
if CD.FileName <> "" then
fso.copyfolder "C:\New Folder", CD.FileName & "\" & Date$, True