ACCESS实现FTP功能

zjhnxzb

声明：

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long

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     lngINet = InternetOpen("FTP", 1, vbNullString, vbNullString, 0)     If lngINet = 0 Then Exit Function     lngINetConn = InternetConnect(lngINet, "IP address", port, "user", "password", 1, 0, 0)     If lngINetConn = 0 Then Exit Function     blnRC = FtpPutFile(lngINetConn, LocateFile, RemoteFile, 1, 0)     If blnRC = False Then Exit Function     InternetCloseHandle lngINetConn     InternetCloseHandle lngINet     UpLoadFile = True 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     lngINet = InternetOpen("FTP", 1, vbNullString, vbNullString, 0)     If lngINet = 0 Then Exit Function     lngINetConn = InternetConnect(lngINet, "IP addresss", port, "user", "password", 1, 0, 0)     If lngINetConn = 0 Then Exit Function     blnRC = FtpGetFile(lngINetConn, RemoteFile, LocateFile, False, 0, 1, 0)     If blnRC = False Then Exit Function     InternetCloseHandle lngINetConn     InternetCloseHandle lngINet     DownLoadFile = True End Function

colinqian

怎么用啊？能否给个示例？