如下在新建窗口内创建按钮 想实现以依据TextBox7控件里的值创建文件夹，并把相应的文件上传进去。如果TextBox7没值的话不执行如下代码 。
执行中遇到如下问题
1、TextBox7没值的话，也能打开文件框 。 应该是 e.Cancel = True这里错了；
2、正常执行ftp，只能创建依据TextBox7值的文件夹，但是上传文件却出错。
请教老师，谢谢啦。
If e.Form.Controls("TextBox7").text = Nothing Then
MessageBox.Show("请输入委保合同编号!")
e.Cancel = True
End If
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim fn As String = e.Form.Controls("TextBox7").text
Dim ftp1 As New FtpClient
ftp1.Host="0.0.0.0"
ftp1.Account = "F"
ftp1.Password = "F"
ftp1.MakeDir(fn)
If ftp1.Upload(dlg.FileName,fn) = True Then
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
加好友 
发短信
Post By：2021/9/6 11:42:00 [显示全部帖子]
