[RaggiTech]

كاتب الموضوع : BADRMEDIA

الأداة FolderBrowserDialog

تستخدم فى عرض المجلدات


===============


نقوم بادراج الأداة FolderBrowserDialog من صندوق الأداوت


ضع زر أمر Button و اكتب فيه هذا الكود

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim selectedFolder As String
If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
selectedFolder = FolderBrowserDialog1.SelectedPath
MessageBox.Show(selectedFolder)
End If

End Sub

قمنا بتعريف متغير نصى selectedFolder وسنجعله يحمل مسار المجلد الذى نختار عبر الأداة

كود :

Dim selectedFolder As String

فى حالة لو اختار المستخدم مجلد

كود :

If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then

سنحمل المتغير بمسار المجلد المحدد

كود :

selectedFolder = FolderBrowserDialog1.SelectedPath

سنظهر رسالة بالمسار

كود :

MessageBox.Show(selectedFolder)