پیدا کردن پوشه های یک درایو

[SlowCode]

سلام
چطوری تمام پوشه های موجود در یک درایو رو لیست کنم؟
حتی پوشه های داخل زیر شاخه ها.

[محسن واژدی]

سلام علیکم
ضمیمه زیر را بررسی کنید (البته بدون فولدرهای مخفی و سیستمی)

موفق باشید

[SlowCode]

ممنون آقای واژدی ولی میخوام با توابع api باشه. استفاده از کنترل به صلاحم نیست

[محسن واژدی]

ممنون آقای واژدی ولی میخوام با توابع api باشه. استفاده از کنترل به صلاحم نیست

خواهش میکنم، همونطور که در pm هم عرض شد میتونیم از جستجوگر استفاده کنیم و نتایج را فیلتر کنیم (البته دراینصورت زمان پایان عملیات به مراتب بسیار بیشتر از Dir-List است به عبارتی سرعت خیلی کمتر است)

موفق باشید

[SlowCode]

منظورتون از جستجوگر چیه؟ لطفا واضح تر بگین.
اگه ممکنه یه نمونه سورس هم بزارین.

[محسن واژدی]

تاپیک زیر بررسی کنین:
https://barnamenevis.org/showthread.p...یل&p=1309433

[oYaMaa]

سلام علیکم
ضمیمه زیر را بررسی کنید (البته بدون فولدرهای مخفی و سیستمی)

موفق باشید

آقای واژدی میشه از همین روش علاوه بر لیست کردن فولدر ها، تمام فایل های موجود در یک درایو رو هم لیست کرد؟

[SlowCode]

سورس زیر رو ببینید.

[محسن واژدی]

آقای واژدی میشه از همین روش علاوه بر لیست کردن فولدر ها، تمام فایل های موجود در یک درایو رو هم لیست کرد؟

سلام علیکم
ضمیمه پست 2 را بیشتر برای لیست کردن فولدرها پیشنهاد میکنم برای یافتن فایل ها میتوانیم از توابع api استفاده کنیم (ضمیمه پست 8 که آقای محست 15 زحمتش را کشیدن) اگه بخواهیم همچنان از کنترل های وی بی استفاده کنیم میتوانیم از تابع Dir یا کنترل File-List استفاده کنیم

موفق باشید

[مهرداد صفا]

سلام
چطوری تمام پوشه های موجود در یک درایو رو لیست کنم؟
حتی پوشه های داخل زیر شاخه ها.

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

'in the name of god

'صل الله علی محمد و آله 

Dim File As Object, MainDirectory As Object, FileSystem As Object

Set FileSystem = CreateObject("scripting.FileSystemObject")

Set MainDirectory = FileSystem.GetFolder(InputBox("enter the main directory path."))

For Each Folder In MainDirectory.SubFolders

Text1 = Text1 & Folder.Path & vbNewLine

For Each SubFolder In Folder.SubFolders

Text1 = Text1 & SubFolder.Path & vbNewLine

Text1 = Text1 & SubFolder.ParentFolder.Path & vbNewLine

For Each File In SubFolder.Files

Text1 = Text1 & File.Name & vbNewLine

Next File

Next SubFolder

Next Folder

[oYaMaa]

سورس زیر رو ببینید.

ممنون دوست عزیز، این سورس رو داشتم ولی اگر فرمت رو *.* قرار بدید، حالا به دلیل زیاد بودن فایل ها یا هرچی یه ارور به خط زیر توی همین سورس میده.مشکل از کجاست؟ و چطور بر طرف میشه؟
همچین اگر تعداد فایل ها در یک درایو خیلی زیاد باشه، این برنامه نمیتونه خوب عمل کنه و نصف بیشتره فایل ها رو لیست نمیکنه!
چاره چیه؟

[volkswagen]

یه سری اینجا بزنید ، ببنید جواب میده:

https://barnamenevis.org/showthread.p...328#post879328