用access向ftp服务器上传文件-赖观配
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


用access向ftp服务器上传文件

发表时间:2007/10/18 21:43:35 评论(3) 浏览(11819)  评论 | 加入收藏 | 复制
   
摘 要:转自:OFFICE中国
发帖作者:CHENZHIRONG.
用ACCESS向ftp服务器上传文件
正 文:
用API调用:

'声明:

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal lFlags As Long) As Long

Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
(ByVal hInternetSession As Long, ByVal sServerName As String, _
ByVal nServerPort As Integer, ByVal sUsername As String, _
ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long

Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _
(ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, _
ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean

Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _
(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
ByVal lpszRemoteFile As String, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean

Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

'函数

Private Function UpLoadFile(ByVal LocateFile As String, ByVal RemoteFile As String) As Boolean
Dim lngINet As Long, lngINetConn As Long, blnRC As Boolean
'Me.lbMsg.Caption = "打开INTERNET句柄"
'Me.Repaint
lngINet = InternetOpen("FTP", 1, vbNullString, vbNullString, 0)
If lngINet = 0 Then Exit Function
'Me.lbMsg.Caption = "连接远程主机"
'Me.Repaint
lngINetConn = InternetConnect(lngINet, "IP地址", 端口, "用户", "密码", 1, 0, 0)
If lngINetConn = 0 Then Exit Function
'Me.lbMsg.Caption = "上传文件"
'Me.Repaint
blnRC = FtpPutFile(lngINetConn, LocateFile, RemoteFile, 1, 0)
If blnRC = False Then Exit Function
'Me.lbMsg.Caption = "上传成功"
'Me.Repaint
InternetCloseHandle lngINetConn
InternetCloseHandle lngINet
UpLoadFile = True
'Me.lbMsg.Caption = ""
End Function
Private Function DownLoadFile(ByVal RemoteFile As String, ByVal LocateFile As String) As Boolean
Dim lngINet As Long, lngINetConn As Long, blnRC As Boolean
'Me.lbMsg.Caption = "打开INTERNET句柄..."
'Me.Repaint
lngINet = InternetOpen("FTP", 1, vbNullString, vbNullString, 0)
If lngINet = 0 Then Exit Function
'Me.lbMsg.Caption = "连接远程主机..."
'Me.Repaint
lngINetConn = InternetConnect(lngINet, "IP地址", 端口, "帐号", "密码", 1, 0, 0)
If lngINetConn = 0 Then Exit Function
'Me.lbMsg.Caption = "正在下载文件..."
'Me.Repaint
blnRC = FtpGetFile(lngINetConn, RemoteFile, LocateFile, False, 0, 1, 0)
If blnRC = False Then Exit Function
'Me.lbMsg.Caption = "下载成功"
'Me.Repaint
InternetCloseHandle lngINetConn
InternetCloseHandle lngINet
DownLoadFile = True
End Function

Access软件网交流QQ群(群号:198465573)
 
 相关文章
access FTP服务器应用  【82077802  2010/1/17】
如何上传文件到数据库中  【王樵民  2010/1/28】
如何上传文件到数据库中(续)  【王樵民  2010/2/2】
如何安装及配置FTP服务器  【风行  2013/2/23】
FTP上传下载  【一杯绿茶  2014/4/15】
常见问答
技术分类
相关资源
文章搜索
关于作者

赖观配

文章分类

文章存档

友情链接