Option Compare Database
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Function stopiIneprinatie()

FileCopy "\\ОТЧЕТЫ\Стоп-Отгрузки\СТОПЫ.xls", "D:\Отчеты\Сегодня\" & Date & " Стопотгрузки.xls"
FileCopy "D:\Отчеты\Сегодня\" & Date & " Стопотгрузки.xls", "\\Аналитическая отчетность\Стопотгрузки\" & Date & " Стопотгрузки.xls"
On Error GoTo trycopy
b = killer_old("\\Аналитическая отчетность\Стопотгрузки\", 30)

Exit Function


trycopy:
Debug.Print Err.Description
DoEvents
Resume

End Function


Function killer_old(pt As String, per As Integer)
f1 = Dir(pt & "*.*")
Do Until f1 = ""
If IsDate(Left(f1, 10)) = True Then
If CDate(Left(f1, 10)) < (Date - per) Then
Kill pt & f1
End If
End If
f1 = Dir
Loop
End Function