@OdedDvir אמר בשאלה | איך למחוק קבצים מתקייה במחשב לפי תנאי מסוים באקסס?:
If (InStr(1, File.Name, "תעודה"))
שלבתי את זה ככה בקוד, זה בסדר?
For Each file In folder.Files
If (InStr(1, file.Name, "תעודה")) Then
If (file.DateLastModified < oldDate) Then
Debug.Print file.Name & " is too old, goodbye."
Kill folderPath & file.Name
End If
End If
בפונקציה כתבתי ככה:
Dim ssfile As String
ssfile = CurrentProject.Path & "\accesstopdf" & "\"
DeleteOldFilesInFolder ssfile, 1
חשוב לי לדעת שזה בסדר בגלל ההשלכות של הפעולה.