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

[پرستو پارسایی]

ایجاد یک 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