Нужно удалить на фтп сервере устаревшие файлы.

Private Type FILETIME
  dwLowDateTime As Long
  dwHighDateTime As Long
End Type
 
Private Type WIN32_FIND_DATA
  dwFileAttributes As Long
  ftCreationTime As FILETIME
  ftLastAccessTime As FILETIME
  ftLastWriteTime As FILETIME
  nFileSizeHigh As Long
  nFileSizeLow As Long
  dwReserved0 As Long
  dwReserved1 As Long
  cFileName As String * 260
  cAlternate As String * 14
End Type

Private Declare Function InternetFindNextFile Lib "wininet.dll" Alias InternetFindNextFileA" _
  (ByVal hFind As Long, ByRef lpvFindData As WIN32_FIND_DATA) As Long

fd.ftLastWriteTime.dwHighDateTime = 29823674 
fd.ftLastWriteTime.dwLowDateTime = 1723434496

Private Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type
 
Private Declare Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long
Private Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long

Dim fd As WIN32_FIND_DATA
 
Dim lfDate As FILETIME, lsDate As SYSTEMTIME
...
FileTimeToLocalFileTime fd.ftLastWriteTime, lfDate
FileTimeToSystemTime lfDate, lsDate
...      
 
If DateDiff("d", DateSerial(lsDate.wYear, lsDate.wMonth, lsDate.wDay + 1), date) = 1 Then
        ...
      End if