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

السلام عليكم ورحمة الله وبركاته
اخي الكريم 
يوجد خطأ  في المسار حيث ينقصه هذه الاشارة ( \ )بين المجلد الاخير والمجلد الذي سينشأ من التكست بوكس
وبقية كود الحفظ حيث سيتم اعادة تسمية الصور بـ Image مع رقم ولاحقة افتراضية jpg او يمكن تغييرها اما من متغير او افتراضيا كما في الكود
جربه وانشاء الله يعمل معك

كود :

Dim path As String = "c:\Mahesh\" & TextBox1.Text
       If Not Directory.Exists(path) Then
           Directory.CreateDirectory(path)

           For x As Integer = 0 To ImageList1.Images.Count - 1
               Dim img As Image = ImageList1.Images(x)
               img.Save(path & "\image" & x + 1 & ".jpg")
           Next
     
       Else