FtpFindFirstFile和隐藏文件?

时间:2010-05-04 20:17:08

标签: vb6 ftp

是否可以使用FtpFindFirstFile获取FTP服务器上的隐藏文件列表?我可以将所有文件从隐藏文件中删除。我想知道是否需要设置一个标志,或者是否有使用该功能的方法。

hFindConnect = InternetConnect(hInternet, mHost, INTERNET_DEFAULT_FTP_PORT, mUsername, mPassword, INTERNET_SERVICE_FTP, IIf(PassiveMode, INTERNET_FLAG_EXISTING_CONNECT Or INTERNET_FLAG_PASSIVE, INTERNET_FLAG_EXISTING_CONNECT), &H0)
If hFindConnect Then
    hFind = FtpFindFirstFile(hFindConnect, sPath, WFD, INTERNET_FLAG_RELOAD Or INTERNET_FLAG_NO_CACHE_WRITE, 0&)
    If hFind Then
        Do
            sFileName = StripNull(WFD.cFileName)
            If Len(sFileName) Then
                retPos = retPos + 1
                If retPos > UBound(ret) Then ReDim Preserve ret(UBound(ret) * 2)
                ret(retPos) = sFileName
                If WFD.dwFileAttributes And vbDirectory Then ret(retPos) = ret(retPos) & "/"
            End If
        Loop While InternetFindNextFile(hFind, WFD)
    End If
End If
Call InternetCloseHandle(hFind)
Call InternetCloseHandle(hFindConnect)

1 个答案:

答案 0 :(得分:0)

好吧,我最后只是使用ftpCommand发送'NLST -a'命令。不是很好,因为你得到的只是文件名,但总比没有好。