VFP中执行FTP命令的一个简单方法.docxVIP

VFP中执行FTP命令的一个简单方法 ftp命令虽然简单，但 功能却很强大。可惜都是在ftp环境中，对一般 用户来说，让他们使用ftp命令是不现实的。因此，在 vfp中，用编程的方法， 运行所需的ftp命令，就很管用了。下面是我用了很久的一段代码，很实用，其功能是上传一个 文件并利用ftp文件目录来判断是否上传成功。 至于要做其它事情，照着这个方法往下写就可以了。local cFileName,cDirName,cExpressionlocal strftpUserID ,strftpPassWord ,cUpFtpFileName ,ftpIplocal owsh?? cFileName = fullpath(curdir())+ftp.txt??? 生成一个包含ftp命令的文件?? cDirName =? fullpath(curdir())+dir.txt??? 显示ftp服务器文件目录的文件?? if file(cDirName)????? dele file (cDirName)?? endif strftpUserID 为ftp服务器登录用户?? cExpression = strftpUserID+chr(13)+chr(10)????????????????? 用户名?? STRTOFILE(cExpression, cFileName , .F.) strftpPassWord 为ftp服务器登录密码?? cExpression = strftpPassWord+chr(13)+chr(10)??????????????? 密码?? STRTOFILE(cExpression, cFileName , .T.) cUpFtpFileName 为要上传的文件?? cExpression = put +cUpFtpFileName+ +JUSTFNAME(cUpFtpFileName)+chr(13)+chr(10)??????? 上传文件?? STRTOFILE(cExpression, cFileName , .T.)?? cExpression = mdir +JUSTFNAME(cUpFtpFileName)+ +cDirName+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地址?? 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( /c ftp -s:+cFileName + +ftpIp,0,.T.)? 0 为运行时窗口类型，隐藏,.T.为程序执行完后才会停止?? endif?? release owsh?? if file(cDirName)????? cExpression = FILETOSTR(cDirName)????? if atc(JUSTFNAME(cUpFtpFileName),cExpression) 0???????? is_ok = .T.????? endif?? endif?? if is_ok????? messagebox(上传文件完成)?????? dele file (cDirName)?? else????? messagebox(上传文件失败)?? endif ********************下面介绍ftp的主要 命令及使用方法：FTP命令是Internet用户使用最频繁的命令之一，不论是在DOS还是UNIX操作 系统下使用FTP，都会遇到大量的FTP内部命令。 熟悉并灵活应用FTP的内部命令，可以大大方便使用者，并收到事半功倍之效。??? FTP的命令行格式为： ftp -v -d -i -n -g [主机名] ，其中