ایده برای تولید یک نام غیر تکراری برای ذخیره ی فایل ها در b4a

gameover.blog.ir

'random file name without Repeation
'Author:Sajjad3011
Sub CStr(o As Object) As String
 Return "" & o
End Sub 

imgFormat="png"
strFileName = "aks." & imgFormat
'
Do While File.Exists(File.DirRootExternal,strFileName)
strFileName =  CStr(Rnd(1,1000))  & CStr(Rnd(1,1000)) & CStr(Rnd(1,1000)) & "." & imgFormat
Loop

---

خرید آموزش b4a فارسی با قیمت کم:
http://gameover.blog.ir/1395/04/03/%DA%A9%D8%AA%D8%A7%D8%A8-%D9%81%D8%A7%D8%B1%D8%B3%DB%8C-%D8%A7%D9%85%D9%88%D8%B2%D8%B4-b4a-%D8%B3%D8%A7%D8%AE%D8%AA-%DA%AF%DB%8C%D9%85-%D8%A2%D9%88%D8%B1