Search & Retrieve Matching files from FTP using wininet.dll api

[RiverX]

Hi all,

I've been trying to use the wininet.dll api to search an ftp site for matching files but it's not working for some reason.
Here's the method i've been using.

Private Sub DoStuff()
     Dim hConnection As Long, hOpen As Long, sOrgPath As String, lRes As Long
     Dim scUserAgent$
     
    scUserAgent$ = "vb wininet"
    hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
    hConnection = InternetConnect(hOpen, mServer$, INTERNET_DEFAULT_FTP_PORT, mUserid$, mPassword$, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0)
    
    'set the current directory to 'root/testdir/testdir2'
    FtpSetCurrentDirectory hConnection, "testdir/testdir2"

    ReDim matchingFiles$(1)
    Call SearchForFiles(hConnection, ".txt", matchingFiles$)
    
    
    'Close the connections
    InternetCloseHandle hConnection
    InternetCloseHandle hOpen
End Sub

Public Sub SearchForFiles(hConnection As Long, fileExtension$, matchingFiles$())
    Dim pData As WIN32_FIND_DATA, hFind As Long, lRet As Long
    Dim i%
    
    ReDim matchingFiles$(1)
    
    i% = 1
    
    'create a buffer
    pData.cFileName = String(MAX_PATH, 0)
    'find the first file
    hFind = FtpFindFirstFile(hConnection, "*." + fileExtension$, pData, 0, 0)
    
    'if there's no file, then exit sub
    
    If hFind = 0 Then Exit Sub
    'show the filename
    
    matchingFiles$(i%) = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)
    
    Do
        i% = i% + 1
        'create a buffer
        pData.cFileName = String(MAX_PATH, 0)
        'find the next file
        lRet = InternetFindNextFile(hFind, pData)
        'if there's no next file, exit do
        If lRet = 0 Then Exit Do
        'show the filename
        ReDim Preserve matchingFiles$(UBound(matchingFiles) + 1)
        matchingFiles$(i%) = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)
        
    Loop
    'close the search handle
    InternetCloseHandle hFind
End Sub

All i keep getting is "." and ".." for the files being returned from the SearchForFiles function. Am i doing something incorrectly?

Thanks!

[westconn1]

i tested your code, you are searching for "*..txt", other than that it worked fine, i did not get the . and .. returned, but that may depend on the type of ftp server