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

VFP中执行FTP命令的一个简单方法  HYPERLINK javascript:; \t _self ftp命令虽然简单，但 HYPERLINK javascript:; \t _self 功能却很强大。可惜都是在ftp环境中，对一般 HYPERLINK javascript:; \t _self 用户来说，让他们使用ftp命令是不现实的。因此，在 HYPERLINK javascript:; \t _self vfp中，用编程的方法， HYPERLINK javascript:; \t _self 运行所需的ftp命令，就很管用了。下面是我用了很久的一段代码，很实用，其功能是上传一个 HYPERLINK javascript:; \t _self 文件并利用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)???????????? 返回 HYPERLINK javascript:; \t _self 服务器上传的文件目录?? 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.为 HYPERLINK javascript:; \t _self 程序执行完后才会停止?? 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(上传文件完成)??