如何用VFP编写FTP文件传送器

答案:1 悬赏:0 手机版

解决时间 2021-01-21 14:06

提问者网友：喧嚣尘世
2021-01-20 21:22

如何用VFP编写FTP文件传送器

最佳答案

五星知识达人网友：第幾種人
2021-01-20 22:53

VFP中执行FTP命令的一个简单方法命令虽然简单，但功能却很强大。可惜都是在ftp环境中，对一般用户来说，让他们使用ftp命令是不现实的。因此，在vfp中，用编程的方法，运行所需的ftp命令，就很管用了。下面是我用了很久的一段代码，很实用，其功能是上传一个文件并利用ftp文件目录来判断是否上传成功。至于要做其它事情，照着这个方法往下写就可以了。
local cFileName,cDirName,cExpression
local strftpUserID ,strftpPassWord ,cUpFtpFileName ,ftpIp
local 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.为程序执行完后才会停止

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息