[bidaya]

(21-02-17, 06:50 AM)مساعدة كتب : السلام عليكم

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

كود :

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

اخي لم تنجح الدالة معي او ربما لم اتعامل معها بالشكل الصحيح وللتوضيح اكثر
المشكلة أنه عند تكرار الاسم يقوم البرنامج بالكتابة على الملف القديم
أريد باختصار عند تكرار الاسم ترقيم الملفات الجديدة برقم تلقائي
مثل طريقة الويندوز عند انشاء مجلد جديد
مجلد جديد1
مجلد جديد2
وهكذا ولك جزيل الشكر