استفاده از OpenFileDialog به جای FolderBrowserDialog

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


برای انتخاب پوشه در برخی برنامه‌ها می‌بینیم که از ظاهری مشابه OpenFileDialog استفاده شده هر چند که FolderBrowserDialog برای انتخاب پوشه هاست
راهکاری وجود دارد که از OpenFileDialog استفاده کنیم ولی فقط پوشه‌ها قابل نمایش و انتخاب باشند و کاربر فایل را نبیند
و چند تغییر زیر را بتوانیم اعمال کنیم :
عنوان دکمه Open به سلکت فولدر تغییر کند
عنوان لیبل File Name به File Folder تغییر کند
و کمبوباکس انتخاب پسوندها حذف یا به فولدر تغییر کند

در یوتوب تنها فیلمی که دقیق در این خصوص پیدا کردم به زبان سی است :
https://youtu.be/rusO4q0CBcA?si=s7U39N1AEhdlLh6q

سپاس از حضور استاتید گرامی در این سایت مفید

نقل قول:

---

نوشته شده توسط saeidmobashery

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


برای انتخاب پوشه در برخی برنامه‌ها می‌بینیم که از ظاهری مشابه OpenFileDialog استفاده شده هر چند که FolderBrowserDialog برای انتخاب پوشه هاست
راهکاری وجود دارد که از OpenFileDialog استفاده کنیم ولی فقط پوشه‌ها قابل نمایش و انتخاب باشند و کاربر فایل را نبیند
و چند تغییر زیر را بتوانیم اعمال کنیم :
عنوان دکمه Open به سلکت فولدر تغییر کند
عنوان لیبل File Name به File Folder تغییر کند
و کمبوباکس انتخاب پسوندها حذف یا به فولدر تغییر کند

در یوتوب تنها فیلمی که دقیق در این خصوص پیدا کردم به زبان سی است :
https://youtu.be/rusO4q0CBcA?si=s7U39N1AEhdlLh6q

سپاس از حضور استاتید گرامی در این سایت مفید

---

سلام.
یادمه زمانی که با ویژوال بیسیک 6 کار می کردم همچین ویژگی رو می شد برای Common Dialog بکار برئ و الآن خودم هم خیلی دلم می خواد همون کد رو پیدا کنم ولی خوب پروژه های قدیمی چیزی ازشون نمونده و فکر کنم توی یک سورس کد نمونه پروژه بود که پیداش کردم دقیق یادم نیست.

این لینک رو امتحان کنید
https://stackoverflow.com/a/66187224

ایجاد یک OpenFileDialog جدید:

Dim fileDialog As New OpenFileDialog()

fileDialog.Filter = "Folders|*.none"

fileDialog.CheckFileExists = False

fileDialog.ValidateNames = False

ایجاد یک تابع برای نمایش فقط پوشه‌ها:

Private Function ShowFolderDialog() As String 

   If fileDialog.ShowDialog() = DialogResult.OK Then

        Return Path.GetDirectoryName(fileDialog.FileName)

    End If

    Return ""

End Function

استفاده از تابع برای نمایش فقط پوشه‌ها

Dim selectedFolder As String = ShowFolderDialog()

If Not String.IsNullOrEmpty(selectedFolder) Then

    MessageBox.Show("Selected Folder: " & selectedFolder)

End If