wininet.dll FTP help

[Sean7174]

I am using a class module to do some FTP work from a VBA application. The classmodule uses the "FtpFindFirstFileA" function in wininet.dll. It returnes the following:

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

I have seen may different versions of FTP class modules, and they all work the same, so I am sure the code is correct. The problem is, is how do you convert “ftLastWriteTime” into a usuable date? Also, are there unsigned data types in VBA?

 

[dilettante]

Maybe these links will get you started. They sort of "go the other way" but I think you'll get the idea.

You create a VB "system time" format Type and a "file time" Type. Then you can call the kernel32 (MAPI?) API function FileTimeToSystemTime( ) and so on to get a "system time" and then you can use DateSerial( ) and TimeSerial( ) on that to end up with a vbDate value if you need it.

http://msdn.microsoft.com/archive/default.asp?url=/archive/en-us/dnarvbtips/html/msdn_msdn195.asp

http://support.microsoft.com/default.aspx?scid=kb;EN-US;185476