Recherche et récupération de noms de fichiers à partir d'un site FTP en utilisant wininet.dll api

Question

J'ai essayé d'utiliser l'API wininet.dll pour rechercher un site FTP pour les fichiers correspondants, mais cela ne fonctionne pas pour une raison quelconque. Voici la méthode que j'ai utilisée.

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 

Voici la fonction SearchForFiles

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 is 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 is 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 

Tout ce que je continue à recevoir est "" et ".." pour les fichiers renvoyés par la fonction SearchForFiles. Est-ce que je fais quelque chose de façon incorrecte?

Merci!

Answer 1

Le ".txt" vous fournissez comme argument fileExtension$ à la routine SearchForFiles est concaténé comme cela est le motif "*.", ce qui donne "*..txt". Peut-être que c'est ce qui dérange votre programme? Je me demande pourquoi "." et ".." sont trouvés en utilisant ce modèle, bien que ...