انتقال و ذخیره فایل در اکسس

[mehdipormaye]

با عرض سلام، ادب و احترام محضر اساتید گرامی
دو سوال دارم در صورت امکان توضیح بفرمائید.
1) چگونه با کد نویسی فایلی را از مسیر نرم افزار به پوشه دلخواه در مسیر نرم افزار با نام جدید کپی و پس از ان فایل باز شود. مثال فایل ورد یا اکسل را از مسیر نرم افزار به پوشه test با نام مثلا تاریخ امروز کپی و پس از کپی شدن فایل باز شود.
2)چگونه در یک باکس نام فایل های یک پوشه در مسیر نرم افزار را فراخوانی کنیم بطوری که بعد از کلیک روی نام فایل، فایل باز شود. مثلا نام فایل هایی که در همان پtest تست ذخیره شده است.

با تشکر و سپاس از اساتید گرامی:قلب::قلب:

[mazoolagh]

سلام و روز خوش
با عرض ادب و احترام متقابل

برای تک تک این مواردی که نوشتین نمونه کد در انجمن هست.

اگر کد خودتون رو پیوست و مشخص کنین در چه بخشهایی مشکل دارین بهتر میشه راهنمایی کرد.

[mehdipormaye]

سپاس از پاسخ شما
متاسفانه چیزی پیدا نکردم اگر امکان داره لینک مطالب را ارسال بفرمائید.
ممنون از شما استاد محترم

[eb_1345]

سپاس از پاسخ شما
متاسفانه چیزی پیدا نکردم اگر امکان داره لینک مطالب را ارسال بفرمائید.
ممنون از شما استاد محترم

سلام
برای جواب سوال اول از این تاپیک (https://barnamenevis.org/showthread.php?295481-%DB%8C%D9%87-%D8%AA%D8%A7%D8%A8%D8%B9-%DB%8C%D8%A7-%D9%82%D8%B7%D8%B9%D9%87-%DA%A9%D8%AF-%D8%A8%D8%B1%D8%A7%DB%8C-%D8%AA%D8%BA%DB%8C%DB%8C%D8%B1-%D9%86%D8%A7%D9%85-%D9%81%D8%A7%DB%8C%D9%84-%D9%87%D8%A7) و سوال دوم از این تاپیک (https://barnamenevis.org/showthread.php?580806-%DA%A9%D9%BE%DB%8C-%DA%A9%D8%B1%D8%AF%D9%86-%D8%A2%D8%AF%D8%B1%D8%B3-%D9%81%D8%A7%DB%8C%D9%84-%D8%AF%D8%B1%D9%88%D9%86-%D8%AA%DA%A9%D8%B3%D8%AA-%D8%A8%D8%A7%DA%A9%D8%B3&p=2468065&highlight=#post2468065) استفاده کن !

[eb_1345]

..............................................

[eb_1345]

کد های مربوطه :



Dim OldPath As String
Dim NewPath As String
OldPath = CurrentProject.Path & "\Book1.xlsx"
NewPath = CurrentProject.Path & "\test\Book2.xlsx"
FileCopy OldPath, NewPath





Application.FollowHyperlink CurrentProject.Path & "\test\Book2.xlsx"

[mehdipormaye]

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