Нужно удалить на фтп сервере устаревшие файлы. - 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