إعادة تسمية ملفات داخل مجلد من قاعدة بيانات

[hady2021]

نريد تغيير اسماء ملفات الصور منخلال قاعدة البيانات علما بأن الصورة أسماءها موجودة فى قاعدة البيانات تحت الحقل student_code إلى مقابله seating_no

Main.mdb

[د.كاف يار]

تفضل التعديل

كما أمل حذف الصور حفاطا على خصوصية اصحابها

شكرا لتفهمك

 

Main.mdb

[jjafferr]

وعليكم السلام 🙂

 

هذا الكود سيغير اسماء الملفات في المسار ImagePath ، من الاسم القديم student_code  الى الاسم الجديد seating_no :

    Dim rst As DAO.Recordset
    Dim OldFile As String, NewFile As String
    
    Set rst = CurrentDb.OpenRecordset("Select * From student")
    rst.MoveFirst
    
    Do Until rst.EOF
    
        OldFile = rst!ImagePath & "\" & rst!student_code & ".jpg"
        NewFile = rst!ImagePath & "\" & rst!seating_no & ".jpg"
        Name OldFile As NewFile
        
        rst.MoveNext
    Loop
    
    rst.Close: Set rst = Nothing
    
    MsgBox "Done"
    

 

جعفر