09-06-17, 02:44 AM
كود :
Dim path As String = String.Empty
Dim browse As New FolderBrowserDialog
If browse.ShowDialog = vbOK Then
path = browse.SelectedPath 'هنا تم قراءة المسار الذي اختاره المستخدم
MsgBox(path)
End If