معرفی و کاربرد دستورات MkDir و Dir در ماکرونویسی اکسل

امتیاز 5.00 ( 1 رای )

معرفی و کاربرد دستورات MkDir و Dir در ماکرونویسی اکسل

معرفی و کاربرد دستورات MkDir و Dir در ماکرونویسی اکسل

به نام خداوند بخشنده و مهربان ، امروز برای شما عزیزان معرفی و کاربرد دستورات MkDir و Dir در ماکرونویسی اکسل را آماده نمودیم که امیدواریم مورد رضایت شما عزیزان و علاقه مندان به یادگیری مباحث شیرین وی بی ای اکسل قرار گیرد .

معرفی و کاربرد دستور MkDir در ماکرونویسی اکسل

بطور خلاصه از دستور MkDir برای ایجاد فولدر در محیط ویندوز مورد استفاده قرار میگیرد که ساختار بسیار بسیار ساده ی دارد :

MkDir path

آرگومان path آدرس فولدر جدید در محیط ویندوز است که می بایست بین دابل کوتیشن ” ” قرار گیرد ، به عنوان مثال :

Sub Excellearn()

MkDir “D:\Excellearn”

End Sub

با اجرای ماکروی فوق (F5) ، فولدری به نام “Excellearn” در درایو “D” ویندوز به آدرس ساخته خواهد شد.

البته دستور MkDir به تنهایی کاربرد آنچنانی ندارد ولی اگر با تایع Dir ترکیب شود ، میتواند خروجی مطلوبی به همراه داشته باشد.

معرفی و کاربرد دستور Dir در ماکرونویسی اکسل

از تابع Dir برای فراخوانی نام یک فایل (فولدر) با درنظر گرفتن آدرس آن ، مورد استفاده قرار میگیرد (بیشتر مطالعه کنید). به عنوان مثال :

Sub Excellearn()

Dim MyFile As String

MyFile = Dir(“D:\excellearn.xlsx”)

MsgBox MyFile

End Sub

با اجرای ماکروی فوق در صورت وجود فایل “excellearn.xlsx” در درایو “D” ویندوز ، عبارت “excellearn.xlsx” را توسط دستور Msgbox نمایش میدهد در غیراینصورت محتوای پیام Msgbox برابر با خالی (صفر کارکتر) خواهد بود .

یک مثال کاربردی تر از کاربرد دستور Dir در ادامه خواهیم داشت :

Sub Excellearn()

Dim MyFile As String

MyFile = Dir(“D:\excellearn.xlsx”)

If Len(MyFile) <> 0 Then

    MsgBox MyFile

Else

    MsgBox “File Doesn’t Exist”

End If

End Sub

در ماکروی فوق ابتدا وجود فایل “excellearn.xlsx” ابتدا توسط ترکیب دستور Dir با Len مورد بررسی قرار میگیرد که در صورت وجود نام فایل توسط Msgbox و درصورت عدم وجود فایل ، پیام ” File Doesn’t Exist ” یا بعبارتی فایل موجود نیست را نمایش خواهد داد .

امیدواریم مطلب آموزشی ” معرفی و کاربرد دستورات MkDir و Dir در ماکرونویسی اکسل” مورد رضایت شما عزیزان قرار گرفته باشد، در صورت وجود هرگونه سوال میتوانید آن را در قسمت نظرات سایت مطرح تا در اسرع وقت توسط تیم پشتیبانی سایت اکسل لرن نسبت به پاسخگویی آن اقدام گردد .

سایر مطالب مرتبط و مفید با ماکرونویسی در اکسل :

مطالعه بیشتر