[cordava]

سلام عليكم لدي listview تحتوي علي imagelist كيفية تخزين الصور الي هذا path والكود في الصورة الرجاء المساعدة

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

            Directory.CreateDirectory(path)
            '    Dim i As Integer

            For Each path1 As String In Directory.GetFiles("c:\Mahesh" & TextBox1.Text)
                ImageList1.Images.Add(Image.FromFile(path1))
            Next
        Else
            MsgBox("خطأ")

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

السلام عليكم ورحمة الله وبركاته
اخي الكريم 
يوجد خطأ  في المسار حيث ينقصه هذه الاشارة ( \ )بين المجلد الاخير والمجلد الذي سينشأ من التكست بوكس
وبقية كود الحفظ حيث سيتم اعادة تسمية الصور بـ 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

[cordava]

جزاك الله الف خير

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

الحمد لله والشكر لله

وجزالك الله كل الخير اخي الكريم