[ابراهيم ايبو]

السلام عليكم اخي الكريم
لتحديد مجلد وجلب اسمه سنحتاج الى اداة FolderBrowserDialog
انشئ مشروع جديد وضع 2 تكست بوكس و1 بوتون وضع هذا الكود في البوتن
التكست بوكس 1 يجلب المسار مع اسم المجلد والتكست بوكس 2 يجلب اسم المجلد

كود :

Dim fbd As New FolderBrowserDialog()
       If fbd.ShowDialog() = Windows.Forms.DialogResult.OK Then
           Dim path As String = fbd.SelectedPath
           TextBox1.Text = path
           Dim dir As New IO.DirectoryInfo(path)
           TextBox2.Text = dir.Name
       End If