- 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=157545)
-- 发布时间：2020/10/20 13:41:00
-- FTP下载文件后,自动打开目录并且选中文件
文件存放在FTP服务器上.
有做了一个下载文件的按钮.
有做了一个下载后是否打开文件存放路径目录的复选框.
要求实现功能:当下载文件后打开文件所在目录的复选框为选中状态时,可以自动打开文件所在目录 ,并且刚才下载的文件为选中状态.
演示以实现前述功能,但是没有把下载的文件选中,求优化代码:
此主题相关图片如下：222.gif
-- 发布时间：2020/10/20 13:47:00
--
写了什么代码？
-- 发布时间：2020/10/20 20:56:00
--
Else
Dim dlg As new folderbrowserdialog
If dlg.showdialog = dialogresult.ok Then
e.Form.text = "ftp管理器 文件下载中...."
If ftp.Download(path & "\\" & lr.text,dlg.Selectedpath & "\\" & lr.text,True) = True Then \'若下载成功
e.Form.text = "ftp管理器"
MessageBox.Show("下载成功!","提醒")
Else
MessageBox.Show("下载失败!","提醒")
e.Form.text = "ftp管理器"
End If
End If
End If
Else
MessageBox.Show("请选择一个文件!","提醒")
End If
End If
Dim ck As WinForm.CheckBox = e.Form.Controls("CheckBox2")
If ck.Checked = True Then
Dim tk As WinForm.TextBox = Forms("FTP管理器2").Controls("下载路径")
If tk.text IsNot Nothing Then
Dim t As String = tk.text
\'MessageBox.Show(t)
If FileSys.DirectoryExists(t) Then
Dim Proc As New Process \'定义一个新的Process
Proc.File = t
Proc.Start()
Else
MessageBox.Show("指定目录不存在")
End If
End If
End If
-- 发布时间：2020/10/20 21:47:00
--
打开目录，并选中指定文件
dim file as string = "D:\\问题\\复制.table"
System.Diagnostics.Process.Start("explorer.exe","/Select," & file)
-- 发布时间：2020/10/21 9:01:00
--
完美解决.谢谢!!