Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1067544
  • 博文数量: 1310
  • 博客积分: 3980
  • 博客等级: 中校
  • 技术积分: 8005
  • 用 户 组: 普通用户
  • 注册时间: 2008-05-09 22:05
文章分类

全部博文(1310)

文章存档

2011年(1)

2008年(1309)

我的朋友

分类: 项目管理

2008-05-23 16:39:46

部分代码: Private Sub Command2_Click()   Dim back As Integer   Dim line1 As String   Dim line2 As String   Dim line3 As String   Dim line4 As String     Dim ret1() As String   Dim ret2() As String   Dim ret3() As String   Dim ret4() As String   Me.Hide   '打开文件   Open App.Path + "\ftpup.txt" For Input As #1     Line Input #1, line1   Line Input #1, line2   Line Input #1, line3   Line Input #1, line4   ret1() = Split(line1, "#")   ret2() = Split(line2, "#")   ret3() = Split(line3, "#")   ret4() = Split(line4, "#")   MsgBox " & ret1(1) & ":" & ret2(1) & "@" & ret3(1)     back = MsgBox("确定要将" & Text1.Text & "上传吗?", vbOKOnly + vbOKCancel, "上传参数表")   'ftp 上传   If back = 1 Then       With Inet1         '上传文件         .Execute " & ret2(1) & ":" & ret3(1) & "@" & ret1(1), "put """ & Text1.Text & """ " & ret4(1)         '下载文件         '.Execute " & Trim(Text2.Text) & ":" & Trim(Text3.Text) & "@" & Trim(Text1.Text), "get ICmaster/conf/busfile.conf c:\testtest1.txt"         '上传文件 '         .Execute " & Trim(Text2.Text) & ":" & Trim(Text3.Text) & "@" & Trim(Text1.Text), "send c:\testtest1.txt   ICmaster/conf/abc.txt"         If Err.Number = 0 Then           MsgBox "上传文件成功", vbOKOnly + vbInformation, "FTP上传"             Else           MsgBox "上传文件失败", vbOKOnly + vbInformation, "FTP上传"         End If             End With   End If End Sub
阅读(627) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~