VFP中編程實(shí)現(xiàn)從SCOUNIX主機(jī)上自動(dòng)下載文件

sdccf

作者：hude   
程序示例:
local cFileName,cDirName,cExpression
       local strftpUserID ,strftpPassWord ,cUpFtpFileName ,ftpIp
       local owsh
       cFileName = fullpath(curdir())+'ftp.txt'    && 生成一個(gè)包含ftp命令的文件
       && strftpUserID 為ftp服務(wù)器登錄用戶
       strftpUserID="root"
       cExpression = strftpUserID+chr(13)+chr(10)                  && 用戶名
       STRTOFILE(cExpression,cFileName,.F.)
       && strftpPassWord 為ftp服務(wù)器登錄密碼
       strftpPassWord="root"
       cExpression = strftpPassWord+chr(13)+chr(10)                && 密碼
       STRTOFILE(cExpression, cFileName , .T.)
       cExpression='cd /tmp'+chr(13)+chr(10)             && 進(jìn)入目標(biāo)目錄
       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服務(wù)器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 為運(yùn)行時(shí)窗口類型，隱藏,.T.為程序執(zhí)行完后才會(huì)停止
        else
            owsh.run("command.com /c ftp -s:"+cFileName +" "+ftpIp,0,.t.)  &&0 為運(yùn)行時(shí)窗口類型，隱藏,.T.為程序執(zhí)行完后才會(huì)停止
     endif
     release owsh
     !del ftp.txt


本文來(lái)自ChinaUnix博客，如果查看原文請(qǐng)點(diǎn)：http://blog.chinaunix.net/u/31/showart_509072.html