Foxtable(狐表)用户栏目专家坐堂 → 关于DOMELOAD的咨询


  共有4185人关注过本帖树形打印复制链接

主题:关于DOMELOAD的咨询

帅哥哟,离线,有人找我吗?
wealthwind
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
关于DOMELOAD的咨询  发帖心情 Post By:2014/4/18 23:09:00 [显示全部帖子]

e.Form.TimerEnabled = False
Dim ftp1 As New FtpClient
ftp1.Host="120.198.124.195"
ftp1.Account = "und8042"
ftp1.Password = "und8042ssa"
If ftp1.Upload("c:\data\default.html",e.form.controls("TextBox2").text  & "-" & e.form.controls("TextBox3").text & "-" & e.form.controls("TextBox4").text  & ".html") = True Then
    Messagebox.show("提交完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("提交失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 

以上这段代码是,将default.html,按TextBox2+TextBox3+TextBox4的TEXT命名在FTP生成文件;

 

如果返过来,需要根据TextBox2+TextBox3+TextBox4的TEXT,从FTP下载指定的文件,那代码如何写,小生写了拼了以下代码,但是不行,请老师给予指点

Dim ftp1 As new ftpclient
ftp1.host="120.198.124.195"
ftp1.Account = "und8042"
ftp1.password = "und8042ssa"
If ftp1.Download("\e.form.controls("TextBox2").text  & "-" & e.form.controls("TextBox3").text & "-" & e.form.controls("TextBox4").text  & ".html"“,"c:\data\default.html",) = True Then
Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
web.OfficeToolBar = True
web.Address = "c:\data\default.html"
End If

 

 

 

 

 

 


 回到顶部