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

السلام عليكم 

اخي لانشاء مجلد  اليك الكود التالي حيث يمكنك استبدال MyFolder بالاسم الذي تريده

سيتحقق الكود من وجود المجلد وينشئه في حال انه غير موجود في المسار الذي ستحدده

كود :

Imports System.IO  استيراد المكتبة

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim folderName As String = "MyFolder" ' متغير يحمل اسم المجلد
       Dim path As String = "" 'Ofb متغير ليحمل اسم المسار الذي سننشئ فيه المجلد وسيأخذ قيمته من
       Dim Ofb As New FolderBrowserDialog()
       If Ofb.ShowDialog() = DialogResult.OK Then
           path = Ofb.SelectedPath ' اسناد القيمة  للمتغير مسار

       End If
       If Not Directory.Exists(path & " \" & folderName) Then
           Directory.CreateDirectory(path & " \" & folderName) ' انشاء المجلد
           MessageBox.Show("تم انشاء المجلد بنجاح")
       Else
           MessageBox.Show("المجلد موجود سابقا")
       End If
   End Sub