VFP中编程实现从SCOUNIX主机上自动下载文件

作者：hude   

程序示例:

local cFileName,cDirName,cExpression
       local strftpUserID ,strftpPassWord ,cUpFtpFileName ,ftpIp
       local owsh
       cFileName = fullpath(curdir())+'ftp.txt'    && 生成一个包含ftp命令的文件
       && strftpUserID 为ftp服务器登录用户
       strftpUserID="root"
       cExpression = strftpUserID+chr(13)+chr(10)                  && 用户名
       STRTOFILE(cExpression,cFileName,.F.)
       && strftpPassWord 为ftp服务器登录密码
       strftpPassWord="root"
       cExpression = strftpPassWord+chr(13)+chr(10)                && 密码
       STRTOFILE(cExpression, cFileName , .T.)
       cExpression='cd /tmp'+chr(13)+chr(10)             && 进入目标目录
       STRTOFILE(cExpression, cFileName , .T.)
       && cUpFtpFileName 为要下载或上传的文件
       cUpFtpFileName=abc.sh
       cExpression = 'get'+" "+cUpFtpFileName+chr(13)+chr(10)        && 下载文件
       STRTOFILE(cExpression, cFileName , .T.)
       cExpression = 'y'+chr(13)+chr(10)
       STRTOFILE(cExpression, cFileName , .T.)
       cExpression = 'bye'+chr(13)+chr(10)
       STRTOFILE(cExpression, cFileName , .T.)
       && ftpIp为ftp服务器IP地址
      ftpip="192.168.0.2"
      owsh=createobject("wscript.shell")
      if left(os(),10) == 'Windows NT' OR os()='Windows 5.00'
            owsh.run("cmd /c ftp -s:"+cFileName +" "+ftpIp,0,.T.)  &&0 为运行时窗口类型，隐藏,.T.为程序执行完后才会停止
        else
            owsh.run("command.com /c ftp -s:"+cFileName +" "+ftpIp,0,.t.)  &&0 为运行时窗口类型，隐藏,.T.为程序执行完后才会停止
     endif
     release owsh
     !del ftp.txt