求利用API函数列出远程FTP服务器目录下的所有文件，最好有代码，急！

[mania001]

求利用API函数列出远程FTP服务器目录下的所有文件，最好有代码，急！
我自己想利用FTPFindFirstFile和InternetFindNextFIle。但是好像都没有实现。请高手指教。

dim fFind as Long
dim blnRC as Boolean
fFind=FtpFindFirstFile(INetConn,"*.*",pData,0,0)

ListBox1.Items.Add(pData,cFileName)
Do
blnRC =InternetFindNextFile(hFind,pData)
if Not blnRC Then
Exit Do
Else
strTemp=pData.cFileName
End If
Loop
ListBox1.Items.Add(pData,cFileName)

但我发现实现不了呀。blnRC 的值是False

请高手指教。急!

[mania001]

public Declace Function FtpFindFirstFile lib "wininet.dll "Alias "FtpfindFirstfileA "(Byval hFtpSession as long,Byval lpsSearchFile as string,byval lpFindFileData as WIN32_FIND_DATA,byval dwFlags as long,byval dwContent as long) as long
public Declace Function InternetFindNextFile lib "wininet.dll "Alias "InternetFindNextFileA "(Byval hFind as long,byval lpFindFileData as WIN32_FIND_DATA,) as long

public Structure FILETIME
public dwLowDateTime as Interger
public dwHighDateTime as interger
end structure

public Structure WIN32_FIND_DATA
public dwFileAttributes as Uint32
public ftCreationTime as FILETIME
public ftLastAccessTime as FILETIME
public ftLastWriteTime as FILETIME
public nFileSizeHigh as Uint32
public nFileSizeLow as Uint32
public dwReserved0 as Uint32
public dwReserved1 as Uint32
public cFileName as string
public cAlternateFileName as string
end Structure

其它声明如上。

[yuanhuiqiao]

知道用户名密码，用Socket也行，参考

[zzxap]

用FTP操作类，获取ftp文件列表，再递归绑定到treeview上。
这个东西我也搞了几天

[mania001]

[Quote=引用 3 楼 zzxap 的回复:]
用FTP操作类，获取ftp文件列表，再递归绑定到treeview上。
这个东西我也搞了几天
[/Quote]

能给个代码参考不？我发现我陷在这2个函数里面了。没出来。呵呵。反正其他下载上传删除都用API实现了。就这2个函数不晓得怎么搞的。

[mania001]

[Quote=引用 2 楼 yuanhuiqiao 的回复:]
知道用户名密码，用Socket也行，参考
[/Quote]


我看看先

[zzxap]

百度一下 FTP操作类 和 treeview绑定本地文件

[mania001]

[Quote=引用 6 楼 zzxap 的回复:]
百度一下 FTP操作类 和 treeview绑定本地文件
[/Quote]

能给点代码不？谢谢!

[mania001]

自己搞定。结贴！不过也谢谢2为的提示，我可以多试几种方法。放分