نام گذاری فایل های هم نام به صورت خودکار ( در زمان دانلود و . . .)

[مجید آرتا 5,874]

سلام به انسر سنتریای عزیز

امیدوارم در این ماه مبارک رمضان طاعات و عباداتتون مورد مقبول درگاه حق قرار گرفته باشه

تابعی رو یکی از کاربران B4X  به اشتراک گذاشته بودن که تابع نسبتا بدرد بخوریه.

زمانیکه ما فایل هایی رو دانلود می کنیم، پیش میاد که اسم های یکسانی داشته باشند و خب در زمان ذخیره کردن فایل دانلود شده اگر فایل با اسم یکسان رو بخواییم ذخیره کنیم روی فایل قبلی باز نویسی میشه و فایل قبلی رو از دست میدیم.

از این رو این تابع رو معرفی میکنیم »

Sub getIncrementFileName( Dir As String, FileName As String) As String
    Dim Base As String = FileName.SubString2( 0, FileName.LastIndexOf( "."))
    Dim Ext  As String = FileName.SubString( FileName.LastIndexOf( "."))
    
    Dim newFile As String = FileName
    Dim count As Int = 1
    Do While File.Exists( Dir, newFile) = True
        newFile = $"${Base}(${count})${Ext}"$
        count = count +1
    Loop
    Return newFile
End Sub

 

خب نحوه ی استفاده هم به این شکل هستش »

Dim newFile As String = getIncrementFileName( File.DirInternal, "Test.txt")
File.WriteString(File.DirInternal, newFile,"Www.AnswerCenter.IR")

خب اگر فایل مشابه وجود داشته باشه به این صورت ذخیره میشه »

Test.txt
Test(1).txt
Test(2).txt

 

موفق و موید باشید