Je vais te donner plus d'explication, mon programme est un client ftp lorsqu'il se connecte, il fais une liste des dossier et fichier dans un listbox de ce qui est sur le serveur. Comment dans ce cas-la remplacer list.additem pour faire la meme chose
voici la fonction en question
Public Sub EnumFiles(hConnection As Long)
Dim stat As Long
stat = FtpSetCurrentDirectory(hConnection, CheminFtp)
Me.AutoRedraw = True
pData.cFileName = String(MAX_PATH, 0)
hFind = FtpFindFirstFile(hConnection, Extension, pData, 0, 0)
If hFind = 0 Then Exit Sub
List1.AddItem Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)
Do
pData.cFileName = String(MAX_PATH, 0)
lRet = InternetFindNextFile(hFind, pData)
If lRet = 0 Then Exit Do
List1.AddItem Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)
Loop
InternetCloseHandle hFind
si tu peux m'aider sa serais sympa, sinon merci pareil
Merci
DraaFil