[ggreg75]

Καλησπέρα σε όλη την ομάδα,

Σε παλαιότερο κώδικά που είχα λάβει από το forum μπορούσε να γίνει μαζική μετονομασία αρχείων.

Η μετονομασία γινόταν με βάση τον πίνακα «Rename_Files» στον οποίο υπάρχουν τα πεδία «Current_File_Name» και «New_File_name».

Σε αυτό θα ήθελα την κάτωθι τροποποίηση :

Στον παραπάνω πίνακα θέλω να προσθέσω ένα επιπλέον πεδίο με τιμή «Delete» το οποίο θα έχει μορφή True/False.

Όπου υπάρχει η επιλογή True στο πεδίο «Delete» δεν θα ήθελα να γίνεται μετονομασία του αρχείου αλλά διαγραφή. Αντίστοιχα, όπου υπάρχει η τιμή False τότε μόνο να γίνεται μετονομασία του αρχείο.

Μπορεί να με βοηθήσει κάποιος;

Παλαιός Κώδικας


Option Compare Database

Public Function SetNewName()
Dim rs As DAO.Recordset, tblName As String
Dim OldName As String, NewName As String


On Error GoTo errHandler
tblName = "Rename_Files" 'Εδώ ορίζεται το πραγματικό όνομα του πίνακα
Set rs = CurrentDb.OpenRecordset(tblName)
With rs
If .RecordCount Then
Do Until .EOF
OldName = !Current_File_Name: NewName = !New_File_name
If Dir(OldName) <> "" Then
Name OldName As NewName
End If
.MoveNext
Loop
End If

End With
Exit_Sub:
Set rs = Nothing
Exit Function
errHandler:
MsgBox Err.Description, vbCritical, "Error #" & Err.Number
Resume Exit_Sub
End Function