blake_daniel
پنج شنبه 20 مهر 1391, 21:54 عصر
سلام به همه دوستان.
اول از همه بگم که سرچ زیاد انجام دادم چیزی ندیدم.خودمم زیاد سعی کردم ولی نتونستم تمومش کنم.
سوالم اینه که چجوری میتونم محتویات یک فولدر(چندتا دیتابیس اکسس)رو کپی کنم و در مسیری که کاربر مشخص میکنه یک فولدر بسازم که اسمش تاریخ همون روز باشه و محتویات رو توش بریزم؟
اینم کد ولی خودمم چیزی ازش سر در نیاوردم:
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 بهم بگین بهتره.
با تشکر.
اول از همه بگم که سرچ زیاد انجام دادم چیزی ندیدم.خودمم زیاد سعی کردم ولی نتونستم تمومش کنم.
سوالم اینه که چجوری میتونم محتویات یک فولدر(چندتا دیتابیس اکسس)رو کپی کنم و در مسیری که کاربر مشخص میکنه یک فولدر بسازم که اسمش تاریخ همون روز باشه و محتویات رو توش بریزم؟
اینم کد ولی خودمم چیزی ازش سر در نیاوردم:
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 بهم بگین بهتره.
با تشکر.