В общем в библиотеке дополнили Тип и изменили несколько переменных объявив этим Типом. тестирование прошло успешно.
в библиотеке Notes FTP было :
' Win32 API struct for extracting file info
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As Currency
ftLastAccessTime As Currency
ftLastWriteTime As Currency
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Typeстало :
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
' Win32 API struct for extracting file info
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As Long
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type