用vb实现ftp的上传下载

 

Option   Explicit

Public  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

Public  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

Public  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

Public  Declare  Function  FtpPutFile Lib  " wininet.dll "  Alias  " FtpPutFileA "  _
(ByVal hFtpSession  As   Long , ByVal lpszLocalFile  As   String , _
ByVal lpszRemoteFile  As