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

Формулировка задачи:

Привет всем. Задача проста как дверь. Нужно удалить на фтп сервере устаревшие файлы. Есть конструкция

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

получаю инфу о файле, но не понятно почему ftCreationTime и ftLastAccessTime - пустые. Есть только ftLastWriteTime.

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

Хоть убей а не могу понять как из этого можно получить дату. А узнать мне нужно только разницу в днях между этой датой и текущей.

Решение задачи: «Нужно удалить на фтп сервере устаревшие файлы.»

textual
                            Листинг программы 
                        

                            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
                        