کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

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

شمارش زیر فولدرها با استفاده از شئ FileSystemObject



1-ساخت شئ و تنظیم آن ( با Set ) به متغیری جهت استفاده از مجموعه ها و متدهای آنها

CreateObject :Scripting.FileSystemObject

متد GetFolder شئ Folder مرتبط با پوشه با مسیر مشخص را برمیگرداند و می توان به ویژگیهای آن دسترسی پیدا کرد.

GetFolder(PathSpecified)

شئ Folder طبق گفته بالا دسترسی به تمام ویژگیهای یک پوشه را فراهم می سازد.





این شئ فولدر دو تا کالکشن داره یکی کالکشن Files و دیگری SubFolders که مجموعه ای از تمام اشیاء پوشه موجود در یک شئ Folder است



حالا به SubFolders احتیاج داریم که بعد با Count ، تعداد را بگیریم



GetFolder(psPath).SubFolders.Count



هر فولدری می تواند یک زیرپوشه باشد . می توان با لوپ زدن یا ارسال آن به خود تابع تعداد کل پوشه ها در مسیر مشخص را گرفت. مثلا فولدر MyPath دارای چند زیرپوشه است و زیر پوشه images ممکن است خودش دارای پوشه هایی باشد که برای آن زیرپوشه و خودش برای آنها فولدر محسوب میشود.




درصورت مفید بودن لطفا در نظرسنجی "حتی خیلی کم" شرکت نمائید