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

السلام عليكم
أخواني انا استخدم هذا الكود لحفظ صورة داخل مجلد
SavePicture Picture1.Image, (App.Path & "\Report\" & (name.Text) & ".bmp ")
ولكن المشكلة أنه عند تكرار الاسم يقوم البرنامج بالكتابة على الصورة القديمة
أريد باختصار عند تكرار الاسم ترقيم الملفات الجديدة برقم تلقائي
مثل طريقة الويندوز عند انشاء مجلد جديد
مجلد جديد1
مجلد جديد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"

الف شكر اخي العزيز

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

alglad

VB_Coder

alglad