FTP. Узнать дату создания и изменения файла

[Ramauf]

Есть сервер, на нем файлы. Эти файлы иногда обновляются, причем имена файлов остаются те же. Чтобы постоянно не заходить самому на сервер надо сделать прогу, которая сама вытаскивает весь список файлов, определяет дату создания и изменения файлов. Список вытащил, но вот с датой не знаю как делать.
Воспользовался примером из API-Guide

Код: Выделить всё

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



Потом объявляю переменные

Код: Выделить всё


    Dim pData As WIN32_FIND_DATA, hFind As Long, lRet As Long


Вытаскиваю первый файл

Код: Выделить всё

 
    hFind = FtpFindFirstFile(hConnection, "*.*", pData, 0, 0)
    If hFind = 0 Then Exit Sub


И тут у меня возникает проблема, пишу

Код: Выделить всё

            Button1.Caption = pData.ftCreationTime.dwLowDateTime


А он мне выдает 0
Вот тут я не догоняю, подскажите как сделать.
Спасибо заранее!

[Ramauf]

Извиняюсь, что 2 раза написал - инет заглючил.

[lister]

Удали вопрос в той теме, она должна исчезнуть

[Viper]

Ramauf, преобразуй дату из формата FILETIME в что-нить более удобо читаемое, если тебе это время надо вывести в Caption или куда еще.

[Nicky]

Код: Выделить всё

Dim tSysTime As SYSTEMTIME, d As Date

FileTimeToSystemTime pData.ftCreationTime, tSysTime
d = CDate(tSysTime.wDay & "." & tSysTime.wMonth & "." & tSysTime.wYear & " " & tSysTime.wHour & ":" & tSysTime.wMinute & ":" & tSysTime.wSecond)


[Ramauf]

Он выводит 01.01.1601
а если вывожу чисто время:

Код: Выделить всё

d=CDate(tSysTime.wHour & ":" & tSysTime.wMinute & ":" & tSysTime.wSecond)


Он выдает 0:00:00 причем на всех файлах.
Может для FTP надо что-то другое использовать?

[Ramauf]

Неужели никто не знает?

[Nicky]

На ошибку проверил?

Код: Выделить всё

lRet = FileTimeToSystemTime(pData.ftCreationTime, tSysTime)
If lRet > 0 Then d = CDate(tSysTime.wDay & "." & tSysTime.wMonth & "." & tSysTime.wYear & " " & tSysTime.wHour & ":" & tSysTime.wMinute & ":" & tSysTime.wSecond)


Вообще, хоть что-то находит? Можно взять размер файла?

Код: Выделить всё

lSize = (pData.nFileSizeHigh * (MAXDWORD + 1)) + pData.nFileSizeLow

Попробуй вместо *.* поставить пустую строку