Μαζική Μετονομασία ή Διαγραφή Αρχείων

[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

[tsgiannis]

Με την Kill θα κάνεις την δουλειά σου
Απλώς θα βάλεις
Kill FileName
https://learn.microsoft.com/en-us/of...kill-statement

[ggreg75]

Καλησπέρα Γιάννη,

Πως ακριβώς δομείται αυτός ο κώδικάς;

Επίσης, πως μπορεί να διαγράφει μαζικά πολλά αρχεία με βάση το ζητούμενο που αναφέρω στο αρχείο μήνυμα μου;

Υπάρχει η δυνατότητα να ενσωματωθεί στον υφιστάμενο κώδικα;

Ευχαριστώ

Γρηγόρης

[tsgiannis]

Εκεί που έκανες το Rename κάνεις το Kill δεν έχει κάτι άλλο, εσύ απλως θέτεις τα κριτήρια