| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]自定义ftp上传文件的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171696) |
| -- 作者：aqsunxj -- 发布时间：2021/9/6 11:42:00 -- [求助]自定义ftp上传文件的问题 如下在新建窗口内创建按钮 想实现以依据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
|
| -- 作者：有点蓝 -- 发布时间：2021/9/6 11:49:00 -- Dim fn As String = e.Form.Controls("TextBox7").text msgbox(fn) If fn = "" Then MessageBox.Show("请输入委保合同编号!") Return End If Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim ftp1 As New FtpClient ftp1.Host="0.0.0.0" ftp1.Account = "F" ftp1.Password = "F" If ftp1.DirExists("\\" & fn) = False Then If ftp1.MakeDir("\\" & fn) = False Then MessageBox.Show("目录创建失败!") Return End If End If If ftp1.Upload(dlg.FileName,"\\" & fn & "\\" & FileSys.GetName(dlg.FileName)) = True Then Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Else Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If End If
|
| -- 作者：aqsunxj -- 发布时间：2021/9/6 14:27:00 -- 谢谢 蓝老师 |