ник: час
Public Function FUN_DELETE_ALL_FILES_ARHIVS(folderspec)
' Удаление старых файлов Архива
Dim fld, f1, fc
Set fld = fso.GetFolder(folderspec)
Set fc = fld.Files
For Each f1 In fc
If Day(f1.DateCreated) <= DateAdd("d", -10, Date) Then
FUN_DELETE_FILE_NAME (folderspec & f1.Name)
End If
Next
End Function
|
Public Function FUN_DELETE_FILE_NAME(Patch_File As String) As String
' Удаление файла
Dim F As Object
If FUN_FILE_YES_NO(Patch_File) = True Then
Set F = fso.GetFile(Patch_File)
F.Delete
End If
End Function
|
А они(файлы) в корзину не попадают.....
Может траекторию полёта изменить или другую функцию применить?
