کپی از فایل اکسس

[انگوران]

دوستان سلام ـ با چه کدی میشه از فایل اکسس موجود روی درایو دیگه کپی تهیه کرد ( backup )البته در رابطه با export اشیاء اکسس مشکلی نیست .

[majid325]

http://barnamenevis.org/forum/showthread.php?t=53141&page=5
آقای فضائلی در پست 50 یک نمونه برای backup از mdb قرار دادند ، حالا نمیدونم تا چه حدی به کارتون میاد....

[انگوران]

دوست عزیز ممنونم . دنبال یه راه ساده تر هستم . ماکرو ، runcommand ، set object و ...

[moustafa]

با دستور filecopy
تو راهنمای اکسس یا وی بی نگاه کن

[انگوران]

متاسفانه موفق نشدم . منتظر لطف دوستان می مونم .

[davood-ahmadi]

من یک نمونه گذاشتم. فکر کنم که بتوانید براحتی از این استفاده کنید. البته شاید راههای بهتری هم باشد ولی بنظر من این راه ساده تر از همه است و امکانات خوبی مثل چک کردن درایوهای موجود در کامپیوتر ، چک کردن اینکه آیا فایل و یا فولدری در محل خاصی وجود دارد و یا خیر و امکانات دیگر.

[انگوران]

ممنونم دوست عزیز اگه با این روش جواب بگیرم خیلی عالیه فعلاً در قسمت copyfile ارور میده اگه لطف کنین آدرسش رو تو همون قسمت کد نویسی بنویسین ممنون میشم .

[moustafa]

تو رفرنس
microsoft scripting runtime
چک بزن
مشابه اون من قبلا گذاشته بودم با کامند دیالگو باکس مسیر رو تعین همینطور وابسته به فرم استارت اپ بود که در زمانهای متوالی بک اپ می گرفت
ببینم می تونم پیداش کنم

[انگوران]

رفرنس غیرفعاله . علتش چیه ؟

[moustafa]

فرم رو اجرا نکن با
Alt+f11 مستقیما برو رو کدها رفرنس رو چک بزن

[انگوران]

ولی کماکان رو خط زیر ارور میده
fcopy.CopyFile path1, path2, True

[مهدی قربانی]

سلام
چه اروری دریافت می کنی ، اگر مراحل قبلی رو درست طی کرده باشی احتمالاً ارور به path مقصد ربط پیدا می کنه

[انگوران]

قبل از اینکه از ارور عکس بگیرم و اینجا بذارم یکبار تیک microsoft scripting runtime از رفرنس برداشتم و خواستم دوباره تیک رو بذارم که با خطای error in loading dll مواجه شدم لطفاً در این مورد هم راهنمائی بفرمائید . ولی خطای قبلی فکر می کنم ...noy found path2 و یا not found object... بود .

[moustafa]

شما تو مقصد داری مشکل مثلا درایو e نداری در ضمن برای قایلت باید پسوند mdb قراربدی

[davood-ahmadi]

دوست عزیز Path2 را خودتون می توانید به دلخواه جایی که بانک پشتیبان را ارسال می کنید، عوض کنید . آیتم Microsoft Script Runtime در قسمت رفرنس کدنویسی نیز باید تأیید شده باشد و فرم را ذخیره کنید و سپس کلید تهیه پشتیبان استفاده کنید. در ضمن رفرنس خود را چک کنید و اگر گزینه Misc در اول آیتم های تأیید شده دیدید آن آیتم را غیر فعال کنید.

[انگوران]

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

[moustafa]

نگفتی مستقیما وارد ماجولها میشی یا نه ؟!
مطئمن مشکل از آفیس یا سیستم نیست ! حدقل افیس رو حذف ودوباره نصب کن

[انگوران]

با همون روشی که خودتون فرمودین ( alt+f11 ) وارد میشم .

[moustafa]

آفیس رو چی عوض کردی ؟

[انگوران]

فعلاً بی خیال مشکل فوق . لطف کنین و کدهای مربوطه رو با این فرض بنویسید که می خوام زمانی که فرم بسته میشه از برنامه جاری در درایو E و در فولدر backup به اسم backupdb کپی گرفته بشه اگه فایل بدون پسوند mdb باشه که خیلی بهتره .

[moustafa]

خوب اگه اون مشکل حل نشه که کدها عمل نمی کنند
مگراینکه از توابع Api با دستور file copy
http://www.developercenter.ir/Forum/...ead.php?t=1584

بر ای کدها هم که نمونه برنامه آقای احمدی گذاشتند ،مشکلش چیه ؟

[انگوران]

شاید با تعویض office مشکلم حل بشه . لینکی هم که گذاشتین قابل دستیابی نیست . در ضمن برنامه ای که آقای احمدی گذاشتن خیلی عالی بود فقط بجای اینکه مسیر مقصد رو از تکست باکس روی فرم بخونه می خوام داخل محیط کد نویسی انجام بشه البته در حالت عادی با کد زیر مشکل ندارم ولی می خوام با یه نام دیگه در زیر پوشه ای داخل درایو E کپی بشه.

Private Sub Command0_Click()
Dim fcopy As New FileSystemObject
fcopy.copyfile CurrentProject.FullName, "e:\", True
End Sub

[davood-ahmadi]

خوب مشکلی نداره که شما می توانید همان آدرس را کاملتر کنید و نام کپی فایل را در کنار \:e مشخص کنید
مانند:
"e:\backupDB.mdb"
و یا از متغیر ها و یا فانکشنها مثلاً فانکشن تاریخ استفاده کنید و نام فایل خود را با تاریخ مشخص کنید.

[انگوران]

ضمن تشکر ازآقای احمدی و آقا مصطفی که با ما همراه بودند مشکل بنده این بود که بعد از درایو E کدوم لایه مربوط به فولدر و کدوم لایه مربوط به نام فایل می باشد که مشکل به شکل زیر مرتفع گردید
لایه بعد از درایو نام فولدر و آخرین لایه نام فایل می باشد .