以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  FTP下载文件后,自动打开目录并且选中文件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157545)

--  作者:lianghanyu
--  发布时间:2020/10/20 13:41:00
--  FTP下载文件后,自动打开目录并且选中文件

文件存放在FTP服务器上.

 

有做了一个下载文件的按钮.

 

有做了一个下载后是否打开文件存放路径目录的复选框.

 

要求实现功能:当下载文件后打开文件所在目录的复选框为选中状态时,可以自动打开文件所在目录 ,并且刚才下载的文件为选中状态.

 

演示以实现前述功能,但是没有把下载的文件选中,求优化代码:

 

 


图片点击可在新窗口打开查看此主题相关图片如下:222.gif
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2020/10/20 13:47:00
--  
写了什么代码?
--  作者:lianghanyu
--  发布时间: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)

--  作者:lianghanyu
--  发布时间:2020/10/21 9:01:00
--  
完美解决.谢谢!!