...........

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

.....



Sub main()
    Dim hInetSession  As Long
    Dim gFTPSession  As Long
    Dim hFile  As Long, hFile1  As Long
    Dim fd As WIN32_FIND_DATA
    hInetSession = InternetOpen("Smile",  1 , vbNullString, vbNullString,  0 )
    gFTPSession = InternetConnect(hInetSession, "xx.xx.xxx.xx",  21 , "anonymous", "@anonymous",  1 ,  0 ,  0 )
    hFile = FtpSetCurrentDirectory(gFTPSession, "/all/")
    hFile = FtpFindFirstFile(gFTPSession, vbNullString, fd,  0 ,  0 )
    Do
        hFile1 = InternetFindNextFile(hFile, fd)
        Debug.Print fd.cFileName
    Loop Until hFile1
    Call InternetCloseHandle(hFile1)
    Call InternetCloseHandle(hFile)
    Call InternetCloseHandle(gFTPSession)
    Call InternetCloseHandle(hInetSession)
End Sub

0710_VCN.ARJ  d   S e t t i n g s \ n o d a r   w i n d i r = C : \ W I N N T       < =    X X                                                                                               

Option Explicit

Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Const MAXDWORD =  4294967295 #

Type FILETIME
   dwLowDateTime As Long
   dwHighDateTime As Long
End Type

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

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

Declare Function InternetCloseHandle _
   Lib "wininet.dll" (ByVal hInet As Long) As Integer
   
Declare Function InternetOpen _
   Lib "wininet.dll" Alias "InternetOpenA" ( _
   ByVal sAgent As String, _
   ByVal nAccessType As Long, _
   ByVal sProxyName As String, _
   ByVal sProxyBypass As String, _
   ByVal nFlags As Long) As Long

Declare Function InternetConnect _
   Lib "wininet.dll" Alias "InternetConnectA" ( _
   ByVal hInternetSession As Long, _
   ByVal sServerName As String, _
   ByVal nServerPort As Integer, _
   ByVal sUserName As String, _
   ByVal sPassword As String, _
   ByVal nService As Long, _
   ByVal dwFlags As Long, _
   ByVal dwContext As Long) As Long

Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" ( _
    ByVal hFtpSession As Long, _
    ByVal lpszDirectory As String) As Boolean

Declare Function FtpGetFile _
   Lib "wininet.dll" Alias "FtpGetFileA" ( _
   ByVal hFtpSession As Long, _
   ByVal lpszRemoteFile As String, _
   ByVal lpszNewFile As String, _
   ByVal fFailIfExists As Boolean, _
   ByVal dwFlagsAndAttributes As Long, _
   ByVal dwFlags As Long, _
   ByVal dwContext As Long) As Boolean

Declare Function FtpFindFirstFile _
   Lib "wininet.dll" Alias "FtpFindFirstFileA" ( _
   ByVal hFtpSession As Long, _
   ByVal lpszSearchFile As String, _
   ByRef lpFindFileData As WIN32_FIND_DATA, _
   ByVal dwFlags As Long, _
   ByVal dwContent As Long) As Long

Declare Function InternetFindNextFile _
   Lib "wininet.dll" Alias "InternetFindNextFileA" ( _
   ByVal hFind As Long, _
   ByRef lpvFindData As WIN32_FIND_DATA) As Long

Declare Function GetLastError Lib "kernel32" () As Long

Declare Function FormatMessage _
    Lib "kernel32" Alias "FormatMessageA" ( _
    ByVal dwFlags As Long, _
    lpSource As Any, _
    ByVal dwMessageId As Long, _
    ByVal dwLanguageId As Long, _
    ByVal lpBuffer As String, _
    ByVal nSize As Long, _
    Arguments As Long) As Long
Declare Function FileTimeToSystemTime Lib "kernel32.dll" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long

Function LastSystemError() As String
    Dim sError As String *  500 
    Dim lErrNum As Long
    Dim lErrMsg As Long
    '
    lErrNum = GetLastError
    lErrMsg = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, ByVal  0 &, lErrNum,  0 , sError, Len(sError),  0 )
    LastSystemError = Trim(sError)
End Function

Sub main()
    Dim hInetSession  As Long
    Dim hFtpSession  As Long
    Dim hFile  As Long
    Dim hFile1  As Long
    Dim retval As Long
    Dim fd As WIN32_FIND_DATA
    Dim wtime As SYSTEMTIME
    
    hInetSession = InternetOpen("Smile",  1 , vbNullString, vbNullString,  0 )
    hFtpSession = InternetConnect(hInetSession, "xx.xx.xxx.xx",  21 , "anonymous", "@anonymous",  1 ,  0 ,  0 )
    hFile = FtpSetCurrentDirectory(hFtpSession, "/xxxxxx/xxxxxxxxxxx/xxxx")
    hFile = FtpFindFirstFile(hFtpSession, "*.*", fd,  0 ,  0 )
    Dim i As Integer, k As Integer
    Do
        i =  1 
        k =  1 
        While i <> Len(fd.cFileName) And k <>  0 
            k = Asc(Mid(fd.cFileName, i,  1 ))
            i = i +  1 
        Wend
        retval = FileTimeToSystemTime(fd.ftLastWriteTime, wtime)
        
        Debug.Print Left(fd.cFileName, i -  1 )
        Debug.Print fd.nFileSizeHigh * (MAXDWORD +  1 ) + fd.nFileSizeLow
        Debug.Print wtime.wYear & "." & Right("0" & wtime.wMonth,  2 ) & "." & Right("0" & wtime.wDay,  2 )
        
        hFile1 = InternetFindNextFile(hFile, fd)
    Loop Until hFile1 =  0 
    Call InternetCloseHandle(hFile1)
    Call InternetCloseHandle(hFile)
    Call InternetCloseHandle(hFtpSession)
    Call InternetCloseHandle(hInetSession)
End Sub