[مساعدة]

السلام عليكم

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

كود :

Dim f As String = GetNewFilename("C:\folder\filename.txt")

الدالة

كود :

Public Function GetNewFilename(fullfilename As String) As String
    'If Not IO.File.Exists(fullfilename) Then Return fullfilename
    Dim path As String = IO.Path.GetDirectoryName(fullfilename)
    Dim filename As String = IO.Path.GetFileNameWithoutExtension(fullfilename)
    Dim extension As String = IO.Path.GetExtension(fullfilename)
    Dim n As Integer = 1
    Do
        Dim nfn As String = String.Concat(path, "\", filename, " ", n, extension)
        If Not IO.File.Exists(nfn) Then Return nfn
        n += 1
    Loop
End Function