请问FtpFindFirstFile第二次调用返回0值的问题

zzb83

请问在使用API遍历FTP目录，怎样才能历遍所有文件夹？因为在第一次调用FtpFindFirstFile时正常返回正常值，但在使用FtpSetCurrentDirectory切换目录后，再使用FtpFindFirstFile就返回0值了，也就是无法再查找其它目录下的文件，请问各位高手这个问题如何解决？谢谢大家
大概的代码如下：
hOpen = InternetOpen("MyFtpUpdate", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
hConnection =InternetConnect(hOpen, ftpserver, 21, username, pass, INTERNET_SERVICE_FTP, 0, 0)
hFind = FtpFindFirstFile(hConnection, "", pData, 0, 0)
mfile = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)
t = InternetCloseHandle(hFind)
k = FtpSetCurrentDirectory(hConnection, "子目录")
hFind = FtpFindFirstFile(hConnection, "", pData, 0, 0)
mfile = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)

zzb83

有没有帅哥帮忙解答一下!?{:soso_e154:}

zzb83

有没有人啊?{:soso_e150:}