主题：[求助]求助浏览和上传的代码

有2个按钮，一个浏览。一个上传。还有一个文本框。文本框绑定了BUG录入表的附件列。

需求：

1.浏览实现选择本地文件，文本框显示文件名。

2.上传实现把选择的本地文件上传到ftp server。请问改如何实现。

把帮助回去又看了一下ftpclient，发现帮助是每次必须打开ftp，才能点击上传，下载之类的。没有匹配我的需求内容。

 

此主题相关图片如下：qq截图20141222105410.png

Dim ftp1 As New FtpClient
ftp1.Host="192.168.1.72"
ftp1.Account = "bdcom"
ftp1.Password = "bdcom"
If ftp1.Upload("这不是本地文件么","\这不是目标文件么") = True Then-------------浏览是选择本地的任何文件，而不是在代码固定其中一个文件吧。
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

浏览按钮代码如下：已经实现了可以直接选择本地文件并且文件的路径显示到了文本框。

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok  Then  '如果用户单击了确定按钮
    Dim f1 As String = dlg.filename
    MessageBox.Show("你选择的是:" & f1,"博达BUG综合管理系统提示您") '提示用户选择的文件
    Dim txt As WinForm.TextBox = e.Form.Controls("TextBox2")
    txt.Value = f1
End  If

 

上传按钮代码如下：如何把txt.value截取文件名，增加到\BUG附件\txt.value的文件名"。就是你说的动态合成路径。请问怎么改？

Dim ftp1 As New FtpClient
ftp1.Host="192.168.1.72"
ftp1.Account = "bug"
ftp1.Password = "bug"
Dim txt As  WinForm.TextBox = e.Form.Controls("textbox2")
If ftp1.Upload("txt.value","\BUG附件\") = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If