منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سلام عليكم لدي 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

ابراهيم ايبو

cordava

ابراهيم ايبو