| |
|
|
| |
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
|
А они(файлы) в корзину не попадают..... 
Может траекторию полёта изменить или другую функцию применить?  | |
| |
| |
| |
|
|
| |
Может траекторию полёта изменить или другую функцию применить
|
конечно - эту функцию даже не програмисты знаю - Format c:  | |
| |
| |
| |
|
|
| | http://hiprog.com/index.php?option=com_content&task=view&id=729&Itemid=35 - много примеров работы с файлами и куча всего другого | |
| |
| |
| |
|
|
| | ну вот - чегой то у тебя час мусор мимо корзины пролетает
вот тут посмотри
http://bit.pirit.info/forum/viewtopic.php?p=4504 | |
| |
| |
|
|
