我用下面的方法测试FTP下载，我发现个问题，就是我运行下面的程序1次成功后，我把FTP服务器中的文件删除掉，再次运行，竟然还能下载成功？我把FTP服务器重新关闭后再启动，也是能？但是，只要我把VFP退出了，再进VFP后再运行程序，就能提示找不到文件了。怪了，怎么会这样？
CLEAR
cFilePath=LEFT(SYS(16),RAT("\",SYS(16)))
cFileName=SYS(16)
SET DEFA TO (cFilePath)
Set Library To myFll
*方法1
hFtp=FtpConnect("192.168.1.212","ftp","123456",21)
If hFtp==""
    MessageBox("无法连接ftp服务器")
    Return
EndIf
If not FtpFOpen(hFtp,"ddd.jpg") &&打开文件

    MessageBox("无法打开指定文件！")
Else
    Try
        cStr=""
        Do while .t.
            cTmp=FtpFRead(hFtp,1024)  &&以1024为单位读取
            If cTmp ==""
            ?"Ok"
                Exit
            EndIf
            cStr = cStr + cTmp
        EndDo
        StrToFile(cStr,"ddd.jpg")
    Catch
        MessageBox("读取过程发生错误！")
    EndTry
    FtpFClose(hFtp)  &&关闭文件

EndIf
FtpDisconnect(hFtp)

*方法2
?FtpDownFile("192.168.1.212","ddd.jpg","ddd.jpg")

Set Library To

是阿，不知道不退出VFP，等N秒后，会不会正常。。