在FOXPRO中用FTP实现上传下载功能

**下载函数(即: 远程 -> 本地)

PROCEDURE GetFtp

**FILENAME:要下载的文件名

**MYPATHNAME:本地路径

**HEPATHNAME:远程路径
PARAMETER FILENAME,MYPATHNAME,HEPATHNAME
PRIVATE cFILENAME,OWSH

**cFILENAME:生成一个包含FTP命令的文件.(注:为全路径)
cFILENAME=FULLPATH(CURDIR())+'FTP.TXT'

**指定FTP服务器地址
STRTOFILE("open 192.168.1.1"+CHR(13)+CHR(10),cFILENAME,.F.)

**指定FTP服务器登录用户
STRTOFILE("myname"+CHR(13)+CHR(10),cFILENAME,.T.)

**指定FTP服务器登录密码

STRTOFILE("mypassword"+CHR(13)+CHR(10),cFILENAME,.T.)

**使用二进制传输方式,可加速上传下载速度
STRTOFILE("bin "+CHR(13)+CHR(10),cFILENAME,.T.)

**进入远程主机目录
STRTOFILE("cd /" + HEPATHNAME + CHR(13) + CHR(10),cFILENAME,.T.)

**关闭文件传输时的交互提示（自动设置为“Y”）
STRTOFILE("prompt off"+CHR(13)+CHR(10),cFILENAME,.T.)

STRTOFILE("lcd " + MYPATHNAME +CHR(13)+CHR(10),cFILENAME,.T.)

**如果要下载的文件名为空时，就下载所有文件

IF ALLTRIM('FILENAME') = ''
STRTOFILE("mget *.*"+CHR(13)+CHR(10),cFILENAME,.T.)

**下载完毕，删除远程目录下的所有文件

STRTOFILE("mdelete *.*"+CHR(13)+CHR(10),cFILENAME,.T.)

**否则，就下载指定文件
ELSE
STRTOFILE("get " + FILENAME +CHR(13)+CHR(10),cFILENAME,.T.)

**删除指定文件
STRTOFILE("delete " + FILENAME +CHR(13)+CHR(10),cFILENAME,.T.)
ENDIF

**退出FTP
STRTOFILE("bye"+CHR(13)+CHR(10),cFILENAME,.T.)

**执行FTP
OWSH=CREATEOBJECT("wscript.shell")
OWSH.RUN("ftp -s:d:/TyTerminal/FTP.txt",0,.T.)
RELEASE OWSH

SET SAFETY OFF

**删除生成的FTP命令的文档
DELETE FILE d:/FTP.txt
ENDPROC

**上传函数(即: 本地 -> 远程)
PROCEDURE PutFtp
PARAMETER FILENAME,MYPATHNAME,HEPATHNAME
PRIVATE cFILENAME,OWSH
cFILENAME=FULLPATH(CURDIR())+'FTP.TXT'

STRTOFILE("open 192.168.1.1"+CHR(13)+CHR(10),cFILENAME,.F.)
STRTOFILE("myname"+CHR(13)+CHR(10),cFILENAME,.T.)
STRTOFILE("mypassword"+CHR(13)+CHR(10),cFILENAME,.T.)
STRTOFILE("bin "+CHR(13)+CHR(10),cFILENAME,.T.)
STRTOFILE("cd /" + HEPATHNAME + CHR(13) + CHR(10),cFILENAME,.T.)
STRTOFILE("prompt off"+CHR(13)+CHR(10),cFILENAME,.T.)

**如果要上传的文件名为空时，就上传所有文件

IF ALLTRIM('FILENAME') = ''
STRTOFILE("mput " + MYPATHNAME + "*.*"+CHR(13)+CHR(10),cFILENAME,.T.)

**否则，就上传指定文件
ELSE
STRTOFILE("put " + MYPATHNAME + FILENAME +CHR(13)+CHR(10),cFILENAME,.T.)
ENDIF
STRTOFILE("bye"+CHR(13)+CHR(10),cFILENAME,.T.)

OWSH=CREATEOBJECT("wscript.shell")
OWSH.RUN("ftp -s:d:/TyTerminal/FTP.txt",0,.T.)
RELEASE OWSH

SET SAFETY OFF

**删除上传完毕的文件
DELETE FILE MYPATHNAME + "/" + FILENAME
DELETE FILE d:/FTP.txt
ENDPROC

在FOXPRO中用FTP实现上传下载功能相关推荐

Linux 终端访问 FTP 及上传下载文件
今天同事问我一个问题,在Linux 下访问FTP,并将文件上传上去. 我之前一直是用WinSCP工具的. 先将文件从linux copy到windows下,然后在传到ftp上. google 一下. ...
Linux 终端訪问 FTP 及上传下载文件
今天同事问我一个问题,在Linux 下訪问FTP,并将文件上传上去. 我之前一直是用WinSCP工具的. 先将文件从linux copy到windows下,然后在传到ftp上. google 一下. ...
java ftp 下载慢_Java实现ftp文件上传下载解决慢中文乱码多个文件下载等问题
废话不多说了,直接给大家贴代码了,具体代码如下所示: //文件上传 public static boolean uploadToFTP(String url,int port,String usern ...
ftp文件推送 linux_Linux 终端访问 FTP 及上传下载文件
今天同事问我一个问题,在Linux 下访问FTP,并将文件上传上去. 我之前一直是用WinSCP工具的. 先将文件从linux copy到windows下,然后在传到ftp上.google 一下. 方 ...
关于FileZilla连接FTP站点上传下载文件
关于FileZilla连接FTP站点上传下载文件浏览器搜索FileZilla官网:https://www.filezilla.cn/download 根据自己操作系统安装安装完成之后的启动界面是这 ...
C++：FTP文件上传下载(附完整源码)
C++:FTP文件上传下载 FTP文件下载 FTP文件上传 FTP文件下载 #include #include #include #pragma comment(lib, "WinInet. ...
教你如何实现c#文件上传下载功能
简单介绍一下c#文件上传下载功能实现. NuGet 安装SqlSugar Model文件下新建 DbContext 类 public class DbContext {public DbContext ...
JavaWeb实现文件上传下载功能实例解析
转:http://www.cnblogs.com/xdp-gacl/p/4200090.html JavaWeb实现文件上传下载功能实例解析在Web应用系统开发中,文件上传和下载功能是非常常用的功能 ...
文件的上传下载功能的实现（包括进度条）[telerik控件]
文件的上传下载功能的实现(包括进度条) 1.准备工作首先我们需要Telerik控件,数据库,上传文件文件夹. Telerik控件: RadUpload.RadProgressManager.RadP ...

在FOXPRO中用FTP实现上传下载功能

在FOXPRO中用FTP实现上传下载功能相关推荐

最新文章

热门文章