|
Busy:
FTP是否正忙。是返回True;
ChunkSize:
每次传输文件的块大小,单位K,默认为200K, 最大为1000K;
可根据网速的快慢调整该参数:
数值越大,每次传送的字节越多,但如果网速很慢则每次传送都需要很长时间,
这样就会延缓进度条的刷新速度;
在局域网中建议该值可设置为500-800;
Connected:
是否已连接成功,是返回True,否返回False;
ErrorInfo:
发生错误时的错误信息;
ErrorNumber:
发生错误时的错误号码;
FileSize:
正在传输的文件的大小;
FileTypeAllow:
允许上传的文件类型;各个文件类型间以"."分隔;如:"txt.doc"
FileTypeForbid:
禁止上传的文件类型;各个文件类型间以"."分隔;如:"asp.aspx";
如果某文件类型即在FileTypeAllow中也在FileTypeForbid中,则以FileTypeForbid为准,也就是判断为禁示的文件类型;
LeftTime:
当前文件传输的剩余时间;单位:秒
LocalPath:
本地文件路径;
调用Upload或DownLoad方法后,该参数为正在上传文件的本地路径;
MaxSize:
在程序中设置可以传输文件的最大值;(单位:M)
OverWrite:
是否覆盖;如果不覆盖则断点续传;
1:程序中没有设置该参数,则显示"文件替换对话框";

2.设置为True,所有文件都替换;
3.设置为False,所有文件都续传;
PassiveMode:
是否使用被动模式传送文件,默认为True;
PassWord:
登录FTP服务器的密码;
Percent:
文件传输已完成的百分比;
RemotePath:
远程文件路径;
调用Upload或DownLoad方法后,该参数为正在上传文件的远程路径;
RemotePort:
FTP服务器端口,默认为21;
ServerName:
FTP服务器名称;
Speed:
当前传输的速度,单位:bytes/s;
可用"FormatFileSize(FtpLibrary1.Speed) & "/s"转换为:kb/s或mb/s
Text:
控件的提示文字信息;可以设置该属性以改变控件显示的提示信息;
TimeOut:
超时时间间隔,默认为30秒;
TransferSize:
已传输的文件大小,单位字节;
UserName:
登录FTP服务器的用户名,如果为空则相当于匿名;
Version:
显示控件的版本
二、方法:
Abort:
取消当前的操作;
About:
显示控件的版本等相关说明信息
CloseConnection:
关闭连接;
Connect:
连接FTP服务器;成功返回True,失败返回False;
CreateDirectory:
在FTP服务器上创建目录;成功返回True,失败返回False;
DeleteFile:
删除FTP服务器上的文件;成功返回True,失败返回False;
DownLoad:
'功能:下载单个文件、多个文件、整个目录或指定目录中按通配符(只支持*和?)指定的文件;成功返回True,失败返回False;
'说明:
1:下载一个文件:给RemotePath参数传要下载的文件路径;
2:下载整个目录:给RemotePath参数传要下载的目录路径,路径最后一个字符要为"\";
3:下载多个文件/目录:RemotePath参数表示的文件路径间以"|"分隔, 每个目录路径最后一个字符要为"\";此时LocalPath可对应为多个保存路径,也可以只写一个保存所有文件的路径,
如果只有一个路径所有文件以原文件名保存到该路径下;
4:下载指定目录中按通配符指定的文件:给RemotePath参数传带通配符的路径;如:easewe\*.txt
ExistDirectory:
是否存在指定的FTP目录
GetLocalFileDate:
获取本地文件的日期;
LocalFileExists:
判断本地文件是否存在,存在返回True;
LocalFolderExists:
判断本地文件夹是否存在,存在返回True;
FormatFileSize:
标准化文件大小,如果大于1M返回以M为单位的文件大小字符串,大于1KB则以KB为单位,否则以Bytes为单位;
GetCurrentDirectory:
获取FTP服务器当前的工作目录;
GetLocalFileSize:
获取本地文件大小;
GetFileName:
获取某路径的文件名
GetFtpFileInfo
获取FTP服务器上的文件信息(如文件大小,日期),返回CFtpFile对象;
GetFtpFileSize:
获取FTP服务器上文件的大小;返回-1表示没有该文件,返回-2表示发生错误;
GetFtpDirectoryInfo:
获取FTP服务器目录的文件信息(如文件大小,日期),返回CftpFiles数组;
GetParentDirectory:
获取FTP服务器当前工作目录的父目录;
GetParentFolderPath:
获取本地文件的父目录;
RemoveDirectory:
删除FTP服务器上的目录;成功返回True,失败返回False;
RenameFile:
重命名FTP服务器上的文件(夹);成功返回True,失败返回False;
SetCurrentDirectory:
设置FTP服务器上的当前目录;成功返回True,失败返回False;
UpLoad:
'功能:上传单个文件、多个文件、整个目录或指定目录中按通配符(只支持*和?)指定的文件;成功返回True,失败返回False;
'说明:
1:上传一个文件:直接给LocalPath参数传要上传的文件路径;
2:上传整个目录:直接给LocalPath参数传要上传的目录路径,路径最后一个字符要为"\";
3:上传多个文件/目录:LocalPath参数表示的文件路径间以"|"分隔, 每个目录路径最后一个字符要为"\";此时RemotePath可对应为多个保存路径,也可以只写一个保存所有文件的路径,如果只有一个路径所有文件以原文件名保存到该路径下;
4:上传指定目录中按通配符指定的文件:给LocalPath参数传带通配符的路径;如:c:\easewe\*.txt;
三、事件:
OnError:
所有函数发生错误时触发该事件;
OnStateChange:
FTP状态发生变化时触发该事件;
OnTransfer:
传输过程中触发该事件,可以通过该事件定制传输进度条;
四.示例:
连接:
FtpLibrary1.ServerName ="www.easewe.com"
FtpLibrary1.UserName ="easewe"
FtpLibrary1.PassWord ="easewe"
FtpLibrary1.RemotePort ="21"'(不设置该参数,默认为21)
If FtpLibrary1.Connect Then
'连接成功
Else
'连接失败(此时可以用FtpLibrary1.ErrorInfo
和 FtpLibrary1.ErrorNumber 获取错误的描述和错误号)
End If
上传单个文件:
FtpLibrary1.LocalPath ="c:\easewe.txt"
FtpLibrary1.RemotePath ="easewe.txt"
If FtpLibrary1.UpLoad Then
'成功
Else
'失败(此时可以用FtpLibrary1.ErrorInfo 和
FtpLibrary1.ErrorNumber 获取错误的描述和错误号)
End If
上传单个目录'路径的最后一个字符必须为'\'
FtpLibrary1.LocalPath ="c:\easewe\"
FtpLibrary1.RemotePath ="easewe\"
If FtpLibrary1.UpLoad Then
'成功
Else
'失败
End If
上传多个文件或目录:'每个路径使用'|'分隔
FtpLibrary1.LocalPath ="c:\easewe.txt|c:\easewe1.txt|c:\easewe\"
FtpLibrary1.RemotePath ="easewe\"
If FtpLibrary1.UpLoad Then
'成功
Else
'失败
End If
上传通配符指定的文件:
FtpLibrary1.LocalPath ="c:\*.txt"
FtpLibrary1.RemotePath ="easewe\"
If FtpLibrary1.UpLoad Then
'成功
Else
'失败
End If
下载单个文件:
FtpLibrary1.RemotePath ="easewe.txt"
FtpLibrary1.LocalPath ="c:\easewe.txt"
If FtpLibrary1.DownLoad Then
'成功
Else
'失败(此时可以用FtpLibrary1.ErrorInfo 和 FtpLibrary1.ErrorNumber
获取错误的描述和错误号)
End If
下载单个目录:'路径的最后一个字符必须为'\'
FtpLibrary1.RemotePath ="easewe\"
FtpLibrary1.LocalPath ="c:\easewe\"
If FtpLibrary1.DownLoad Then
'成功
Else
'失败
End If
下载多个文件或目录:'每个路径使用'|'分隔
FtpLibrary1.RemotePath ="easewe.txt|easewe1.txt|easewe\"
FtpLibrary1.LocalPath ="c:\easewe.txt"
If FtpLibrary1.DownLoad Then
'成功
Else
'失败
End If
下载通配符指定的文件
FtpLibrary1.RemotePath ="*.txt"
FtpLibrary1.LocalPath ="c:\easewe\"
If FtpLibrary1.DownLoad Then
'成功
Else
'失败
End If
显示进度:
Private Sub FtpLibrary1_OnTransfer()
Debug.Print FtpLibrary1.Percent
& "%(" & FtpLibrary1.FileSize & "/" &
FtpLibrary1.TransferSize & ")"
End Sub
设置控件的提示文字信息:
可以把以下文字信息翻译为其它语言,使控件显示其它语言的提示信息;
FtpLibray1.Text="主机地址为空|无法解析主机地址|登录失败|正在连接|连接失败(服务器未响应)|未建立连接|前一个操作未完成|操作已被取消|未找到文件[
{0} ]|未找到目录[ {0} ]|未指定远程路径|未指定本地路径|无效的路径[ {0} ]|文件[ {0} ]已存在|请输入文件名!|新文件名|没有设置文件[
{0} ]的保存路径!|创建目录[ {0} ]失败!|只能传输以下文件类型:[ {0} ]|禁止传输以下文件类型:[ {0} ]|操作超时|未知错误|文件
{0} 已存在\n是否要把已存在的文件:\n {1} 字节 , {2}\n替换为:\n{3} 字节 , {4}\n|文件替换设置|覆盖|续传|跳过|重命名|全部覆盖|全部续传|全部跳过|确定|取消|主机未找到|连接超时|连接被拒绝|权限被拒绝|不能传输大于
{0} 的文件|退出"
|