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

[saeidmobashery]

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


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

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

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

[ROSTAM2]

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


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

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

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

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

[Mahmoud.Afrad]

این لینک رو امتحان کنید
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