用vb实现ftp的上传下载
更新时间:2023-10-28 05:25:02 阅读量: 综合文库 文档下载
Option Explicit
Public Declare Function InternetOpen Lib \
(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 \(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 \(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 \(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _ ByVal lpszRemoteFile As String, ByVal dwFlags As Long, _ ByVal dwContext As Long) As Boolean
Public Declare Function FtpDeleteFile Lib \ (ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean
Public Declare Function FtpRenameFile Lib \
(ByVal hFtpSession As Long, ByVal lpszExsiting As String, ByVal lpszNew As String) As Boolean
Public Declare Function InternetCloseHandle Lib \
Public Declare Function FtpFindFirstFile Lib \ (ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _
lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, _ ByVal dwContent As Long) As Long
Public Declare Function InternetFindNextFile Lib \(ByVal hFind As Long, lpvFndData As WIN32_FIND_DATA) As Long
Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long End Type
Public Type WIN32_FIND_DATA dwFilAttributes As Long
ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * 260 cAlternate As String * 14 End Type
Public Declare Function GetOpenFileName Lib \
\
Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String
lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long
nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long
lpTemplateName As String End Type
Private Sub Command1_Click()
lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _ vbNullString, vbNullString, 0&)
If lnginet Then
lnginetconn = InternetConnect(lnginet, \地址\ \用户名\密码\ If lnginetconn Then
blnRC = FtpGetFile(lnginetconn, \ If blnRC Then
MsgBox \ End If
InternetCloseHandle lnginetconn InternetCloseHandle lnginet MsgBox \ Else
MsgBox \ End If Else
MsgBox \End If End Sub
Private Sub Command2_Click() Dim pData As WIN32_FIND_DATA Dim lngHINet As Long Dim intError As Integer Dim strTemp As String Dim blnRC As Boolean
pData.cFileName = String(260, 0)
lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _ vbNullString, vbNullString, 0&) If lnginet Then
lnginetconn = InternetConnect(lnginet, \地址\ \用户名\密码\ If lnginetconn Then
lngHINet = FtpFindFirstFile(lnginetconn, \
strTemp = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1) Do
pData.cFileName = String(260, 0)
blnRC = InternetFindNextFile(lngHINet, pData) If Not blnRC Then Exit Do Else
strTemp = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1) End If
Loop
Text1.Text = strTemp End If End If
InternetCloseHandle lngHINet
InternetCloseHandle lnginetconn InternetCloseHandle lnginet End Sub
正在阅读:
用vb实现ftp的上传下载10-28
河南科技大学管理学院关于本科毕业论文统一格式的规定(2010年版)09-06
SZorb吸附剂中硅酸锌的生成条件05-19
质检工作心得体会范文模版07-30
《社会主义从空想到科学的发展》读后感想11-06
八年级走进文言文第32单元译文09-16
2014年高考化学二轮专题扫荡狂练专题三_离子反应04-15
- 冀教版版五年级科学下册复习资料
- 微生物学复习提纲
- 2013—2014学年小学第二学期教研组工作总结
- 国有土地转让委托服务合同协议范本模板
- 我的固废说明书
- 企业管理诊断报告格式
- 东鼎雅苑施工组织设计
- 谈谈如何做好基层党支部书记工作
- 浮梁县环保局市级文明单位创建工作汇报
- 管理学基础知识
- 大学物理实验报告23 - PN结温度传感器特性1
- 计算机网络实践
- 酒桌上这四种情况下要坐牢,千万别不当回事……
- 国家康居示范工程建设技术要点
- 中国贴布行业市场调查研究报告(目录) - 图文
- 新课标下如何在高中物理教学中培养学生的创新能力初探
- 营养师冬季养生食谱每日一练(7月4日)
- 关注江西2017年第3期药品质量公告
- 建设海绵城市专题习题汇总
- 10万吨年环保净水剂建设项目报告书(2).pdf - 图文
- 上传下载
- 实现
- ftp
- 企业内部控制制度浅析
- 五四表彰大会暨校园十大歌手大赛 策划书
- AM真菌在生态系统中的作用
- 浅论如何当好监狱基层纪检委员
- Bresenham画圆算法
- 电力系统自动装置实验报告 - 图文
- 数据通信与计算机网络 - 复习题总 - 图文
- 初中课堂教学改革实施方案(讨论稿)
- 自然辩证法概论课件(word版)
- 西方经济学(微观部分)考研真题与典型题详解—7
- 物业服务小区共用设备设施养护情况专项检查表(2014年8月15日)
- 小学数学青岛版二年级下册周周练习 - 图文
- 电大成人教育本科《计算机应用基础》
- 4B 词汇表新
- 论述广告摄影中大型相机移轴与透视效果的运用 - 图文
- 中考数学复习动点问题中考真题 答案
- 2015年N1N2级护士年终三基理论考试答案
- 北京市农村建房用地管理暂行办法
- 高层建筑结构试题题目 - 图文
- 1比1万数字高程模型生产技术规定