تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة حفظ الصور في مجلد
#1
Photo 
سلام عليكم لدي 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("خطأ")


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







الرد }}}
تم الشكر بواسطة: سعود , asemshahen5
#3
جزاك الله الف خير
الرد }}}
#4
الحمد لله والشكر لله
وجزالك الله كل الخير اخي الكريم
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: asemshahen5



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم