تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حفظ ملف داخل مجلد
#1
السلام عليكم
أخواني انا استخدم هذا الكود لحفظ صورة داخل مجلد
SavePicture Picture1.Image, (App.Path & "\Report\" & (name.Text) & ".bmp ")
ولكن المشكلة أنه عند تكرار الاسم يقوم البرنامج بالكتابة على الصورة القديمة
أريد باختصار عند تكرار الاسم ترقيم الملفات الجديدة برقم تلقائي
مثل طريقة الويندوز عند انشاء مجلد جديد
مجلد جديد1
مجلد جديد2
وهكذا ولكم جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

- إستخدم هذا الكود :
كود :
Dim I As Integer

If Dir$(App.Path & "\Report\" & Trim$(Text1.Text) & ".bmp") <> "" Then
   For I = 1 To 32700
       If Dir$(App.Path & "\Report\" & Trim$(Text1.Text) & "(" & I & ").bmp") = "" Then
          SavePicture Picture1.Image, App.Path & "\Report\" & Trim$(Text1.Text) & "(" & I & ").bmp"
          DoEvents
          Exit For
       End If
   Next
Else
   SavePicture Picture1.Image, App.Path & "\Report\" & Trim$(Text1.Text) & ".bmp"
   DoEvents
End If

MsgBox "OK"
الرد }}}
تم الشكر بواسطة:
#3
الف شكر اخي العزيز
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل هنالك امكانية لطباعة النص داخل الداتا ريبورت بشكل عامودي mohammed_atallah 2 700 11-09-22, 06:00 PM
آخر رد: mohammed_atallah
  عرض الصور من قاعدة بيانات اكسس داخل الداتا ريبورت mohammed_atallah 0 522 04-09-22, 09:17 AM
آخر رد: mohammed_atallah
  ممكن كود للبحث عن مجلد مع خيارات معينة القناص المحترف 2 2,855 31-05-21, 06:43 PM
آخر رد: Ahmad War
  كيفية البحث وعمل فلتر للبيانات داخل Mysql ؟ gedo 2 2,169 07-11-18, 05:53 PM
آخر رد: gedo
  حفظ الصورة في نفس مجلد البرنامج alfakeehy 2 2,250 22-03-18, 10:02 PM
آخر رد: سامى
  الحذف من داخل DATAGRID باستخدام ADO دهشوش1 2 2,204 09-11-17, 04:20 AM
آخر رد: دهشوش1
  [نقاش] نسخ المفات في مجلد معين بالجهاز maher 1 1,752 09-03-17, 09:14 AM
آخر رد: Ashraf Elafify
  [ تم الحل ] : البحث بأوّل حرف داخل الفليكس جريد عبد العزيز البسكري 5 3,266 30-11-16, 01:54 AM
آخر رد: عبد العزيز البسكري
  قرائة سطر معين داخل ملف تكست vb6 شفنطل 4 5,015 16-04-16, 10:20 PM
آخر رد: Ahmed_Mansoor
  عمل checked على مجموعة معينة داخل listview بالفجويل باسيك 6 abdouhai 5 3,815 27-12-15, 03:41 AM
آخر رد: awidan76

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


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