حفظ ملف داخل مجلد - نسخة قابلة للطباعة

حفظ ملف داخل مجلد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : حفظ ملف داخل مجلد (/showthread.php?tid=8070)

حفظ ملف داخل مجلد - alglad - 20-03-13

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

حفظ ملف داخل مجلد - VB_Coder - 24-03-13

السلام عليكم

- إستخدم هذا الكود :

كود :

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 - 04-04-13

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