I have the following code(part), I should suppose to get the creation date of the file/folder in the FTP site. But it seems it doesn't work. Any one can give me a hint would be very very appreciated. Thank you in advanced.

Code:
'in Module

Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type

Option Explicit

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 * MAX_PATH
    cAlternate As String * 14
End Type

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

Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Public Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" _
(ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _
      lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As Long
Public Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" _
    (ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As Long
Public Declare Function FileTimeToLocalFileTime Lib "kernel32.dll" ( _
    lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long
    Public Declare Function FileTimeToSystemTime Lib "kernel32.dll" ( _
    lpFileTime As FILETIME, LPSYSTEMTIME As SYSTEMTIME) As Long

'in code

Dim ft As FILETIME
Dim st As SYSTEMTIME
Dim dtTime As Long
Dim pData As WIN32_FIND_DATA

hFind = FtpFindFirstFile(hConnection, "*.*", pData, 0, 0)
If hFind = 0 Then
      ErrorOut nLastError, "FtpFindFirstFile"
      Exit Sub
End If
    
dError = NO_ERROR

Do
        pData.cFileName = String(260, 0)
        bRet = InternetFindNextFile(hFind, pData)
        If Not bRet Then
            dError = Err.LastDllError
            If dError = ERROR_NO_MORE_FILES Then
                Exit Do
            Else
                ErrorOut dError, "InternetFindNextFile"
                InternetCloseHandle (hFind)
               Exit Sub
            End If
        Else
	FileTimeToLocalFileTime pData.ftCreationTime, ft
	FileTimeToSystemTime ft, st
	dtTime = CLng(DateSerial(st.wYear, st.wMonth, st.wDay) + TimeSerial(st.wHour, st.wMinute, _
                	st.wSecond) + (st.wMilliseconds / 86400000))
        End If
Loop
InternetCloseHandle (hFind)