استيراد اسماء الملفات من مجلد في جدول وتغيير اسم الملف

هذا هو الكود

Private Sub Command0_Click()
 Dim dbs As DAO.Database
 Dim rst As DAO.Recordset
 Dim strFileName As String
 Dim strFolderPath As String

 strFolderPath = "c:\files\"

 Set dbs = CurrentDb
 Set rst = dbs.OpenRecordset("Table1", dbOpenDynaset, dbAppendOnly)

 strFileName = Dir(strFolderPath & "*.*")
 Do While strFileName <> ""
 strFileName = Left(strFileName, InStrRev(strFileName, ".") - 1)
 rst.AddNew
 rst!FileNameOld = strFileName
 rst!FileNameNew = strFileName + " new"
 rst.Update
 strFileName = Dir()
 Loop

 rst.Close
 Set rst = Nothing
 dbs.Close
 Set dbs = Nothing

DoCmd.Close
End Sub

والملف أيضاً

db1.rar

اريد ان اقوم بتغيير اسم الملف في حقل FileNameNew وعندها يتغير اسم الملف في مجلد ( بمعنى ان يتم اعادة تسمية الملف بواسطة حقل FileNameNew )

واريد ان يظهر جميع تفاصيل الملف الحجم والتاريخ والمسار .

يعطيك العافية بالفعل جبتيها صح. مشكورة وما قصرتي.