چک کردن وجود فولدر و رفتن به داخل آن

[hamid-nice]

سلام

یک فایلی ضمیمه کردم می خوام وقتی پنجره باز می شه و دگمه open را میزنم ابتدا چک کنه که داخل فولدری به نام calculate و اگر نیست همونجا این فولدر را بسازه و اتوماتیک بازش کنه و داخلش قرار بگیره



با تشکر

[Abbas Amiri]

سلام

یک فایلی ضمیمه کردم می خوام وقتی پنجره باز می شه و دگمه open را میزنم ابتدا چک کنه که داخل فولدری به نام calculate و اگر نیست همونجا این فولدر را بسازه و اتوماتیک بازش کنه و داخلش قرار بگیره



با تشکر

سلام
درفایل مربوط به بک آپ این مورد درج شده بود . کدهای زیر چک میکند اگر درآدرس فولدرجاری برنامه پوشه ای به نام Bsckup وجودنداشته باشد ، آنرا میسازد.


If Dir(CurrentProject.Path & "\Backup", vbDirectory) = "" Then
MkDir CurrentProject.Path & "\Backup"
End If

[hamid-nice]

سلام دوست گرامی

واقعا از اینکه سری به تاپیکها می زنید و مشکلات ما را برسی می کنید ممنونم


مساله این است که در کد شما فرض شده که فولدر Backup در آدرس برنامه هست در صورتی که در فایلی که گذاشتم مسیر انتخابی فایل وجود داره و ممکن هر جای هارد باشه و می خوام وقتی پنجره باز می شه و دگمه open را میزنم ابتدا چک کنه که داخل فولدری که کاربر رفته فولدری به نام هست calculate و اگر نیست همونجا این فولدر را بسازه و اتوماتیک بازش کنه و داخلش قرار بگیره یا هر روشی دیگه که این کار صورت گیره چون وقتی کاربر روی دگمه OPen کلیک میکنه عملا فایل باید در فولدر قرار بگیره وگرنه با برنامه که شما لطف کردید ساختید قابل restore نمی شه

با تشکر