عدم استبدال الملفات الجديدة

لن اعدل على مثالك ولكن اشرح لك وانت طبق لكي تعم الفائدة

اولا لدينا دالة RND هذه تقوم بانشاء رقم عشوائي لكنه اقل من واحد ، مثلا 0.4524

ونستخدم معها دالة int  التي تقوم بتحويل اي عدد حقيقي الى صحيح وبالشكل التالي int(rnd)

ولكي تختبر ذلك قم بفتح نافذة immediate window  في قائمة الview في محرر الاكواد واكتب 

msgbox int(rnd)  واضرب انتر

ستحصل على ارقام عشوائية   بين 1 و 9

الان اضرب ناتج الدالة في 100 او في 1000

هكذا

msgbox int(Rnd()*1000)

ستحصل على رقم عشوائي بين 1 و1000

الان كل ما مطلوب هو ان تعرف متغير نصي وتسند له قيمة ناتج هذا التركيب بدون كلمة msgbox طبعا وتلحقه ببداية اسم الملف الهدف وليس في النهاية لكي لا يكون بعد امتداد الملف

ولكن كيف نسند قيمة رقمية الى متغير نصي ؟ ستظهر رسالة خطأ حتما !

الحل هو ان تغير القيمة الرقمية الى نص بواسطة دالة cstr ومعناها change to string

والخلاصة هذا الكود الصغير

dim autonum as string

autonum  = cstr(int(Rnd()*1000))

filename = autonum & filename