1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Option Explicit
Dim fso, dTwoDaysAgo
dTwoDaysAgo = Date() - 2
Set fso = CreateObject("Scripting.FileSystemObject")
DirWalk("c:\log\")
Sub DirWalk(parmPath)
Dim oSubDir, oSubFolder, oFile, n
On Error Resume Next
Set oSubFolder = fso.getfolder(parmPath)
For Each oFile In oSubFolder.Files
If Err.Number <> 0 Then
Err.Clear
ElseIf oFile.DateLastModified < dTwoDaysAgo Then
fso.DeleteFile oFile.Path, True
End If
Next
For Each oSubDir In oSubFolder.Subfolders
DirWalk oSubDir.Path
Next
On Error Goto 0
End Sub
--
люди делятся на тех кто делает бэкапы и тех кто будет делать
