用access向ftp服务器上传文件
时 间:2007-10-18 21:43:35
作 者:CHENZHIRONG ID:42 城市:广州
摘 要:转自:OFFICE中国
发帖作者:CHENZHIRONG.
用ACCESS向ftp服务器上传文件
正 文:
'声明:
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交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access高效办公】统计当...(06.30)
- 【Access高效办公】用复选...(06.24)
- 根据变化的日期来自动编号的示例...(06.20)
- 【Access高效办公】按日期...(06.12)
- 合并列数据到一个文本框的示例;...(05.06)
- 通过命令按钮让Access列表...(04.24)
- 【Access高效办公】统计当...(03.11)
- 【Access Inputbo...(03.03)
- 按回车键后光标移动到下一条记录...(02.12)

学习心得
最新文章
- Access快速开发平台--执行有...(07.03)
- 【Access高效办公】统计当月之...(06.30)
- 【Access高效办公】用复选框控...(06.24)
- 根据变化的日期来自动编号的示例;根...(06.20)
- Access快速开发平台--Acc...(06.16)
- 【Access高效办公】按日期区间...(06.12)
- Access快速开发平台--生成复...(06.07)
- 仓库管理实战课程(25)-导航菜单...(06.06)
- 仓库管理实战课程(24)-库存月结...(06.05)
- 分享一个简单的X氏家谱小示例(06.04)