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