[alsalamoni]

(21-02-20, 07:32 PM)العيدروس كتب : بارك الله فيك على المعلومات المفيدة و جزاك خير الجزاء

العفو اخي

---

(21-02-20, 07:57 PM)سعود كتب : صدق من قال ان العلم بحر.
كود  من ابسط مايكون لم اعرفه الا اليوم!
ابسط كود يمكن استخدامه لتسمية الملفات باسماء لا تتكرر على  ما اظن.
بارك الله فيكم جميعا.

العفو اخي

هو بالفعل لا يتكرر لانه يحسب التاريخ مع الوقت بدقة 1000/ثانية
جرب هذا الكود وانظر ما يظهر في عنوان الفورم

كود :

Do
   Me.Text = Now.Ticks
   Application.DoEvents()
Loop

لو اطلعت على DataTypes فستجد ان حجم Date وDateTime هو 8 بايت، وهو بنفس حجم Long
Data Type Summary

ولو اردته لاسماء الملفات بطول اقل حوله الى Hex مثل

كود :

Dim d As Long = Hex(Now.Ticks)