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

Sub ScanFolder()
     Dim folderPath As String
     Dim fileName As String
     Dim fileDate As Date
     Dim cell As Range
     Dim lastRow As Long

     ' تعيين مسار المجلد
     folderPath = "C:\Users\الاحصاء\Downloads\ثالث ابتدائي"

     ' تحديد آخر صف في الورقة
     With ActiveSheet
         lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
     End With

     ' مسح البيانات القديمة (اختياري)
     Range("A2:C" & lastRow).ClearContents ' توسيع النطاق ليشمل العمود الثالث

     ' بدء من الصف الثاني
     Set cell = Range("A2")

     ' البحث عن ملفات JPEG، PNG و PDF
     fileName = Dir(folderPath & "*.jpg")
     Do While fileName <> ""
         ' ... (نفس الكود السابق لملفات JPEG)
     Loop

     fileName = Dir(folderPath & "*.png")
     Do While fileName <> ""
         ' ... (نفس الكود السابق لملفات PNG)
     Loop

     fileName = Dir(folderPath & "*.pdf")
     Do While fileName <> ""
         fileDate = FileDateTime(folderPath & fileName)
         cell.Value = fileName
         cell.Offset(0, 1).Value = fileDate
         cell.Offset(0, 1).NumberFormat = "yyyy-mm-dd hh:mm:ss"
         Set cell = cell.Offset(1, 0)
         fileName = Dir(folderPath & "*.pdf")
     Loop

     ' تكرار العملية بعد 5 دقائق
     Application.OnTime Now + TimeValue("0:05:00"), "ScanFolder"
 End Sub