+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة حفظ الصور في مجلد (/showthread.php?tid=40262)
مشكلة حفظ الصور في مجلد - cordava - 17-12-21
سلام عليكم لدي 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("خطأ")
RE: مشكلة حفظ الصور في مجلد - ابراهيم ايبو - 17-12-21
السلام عليكم ورحمة الله وبركاته
اخي الكريم
يوجد خطأ في المسار حيث ينقصه هذه الاشارة ( \ )بين المجلد الاخير والمجلد الذي سينشأ من التكست بوكس
وبقية كود الحفظ حيث سيتم اعادة تسمية الصور بـ 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
ElseRE: مشكلة حفظ الصور في مجلد - cordava - 18-12-21
جزاك الله الف خير
RE: مشكلة حفظ الصور في مجلد - ابراهيم ايبو - 18-12-21
الحمد لله والشكر لله
وجزالك الله كل الخير اخي الكريم