Foxtable(狐表)用户栏目专家坐堂 → FTP下载文件后,自动打开目录并且选中文件


  共有1727人关注过本帖树形打印复制链接

主题:FTP下载文件后,自动打开目录并且选中文件

帅哥哟,离线,有人找我吗?
lianghanyu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:241 积分:2158 威望:0 精华:0 注册:2020/6/28 8:43:00
FTP下载文件后,自动打开目录并且选中文件  发帖心情 Post By:2020/10/20 13:41:00 [只看该作者]

文件存放在FTP服务器上.

 

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

 

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

 

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

 

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

 

 


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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/20 13:47:00 [只看该作者]

写了什么代码?

 回到顶部
帅哥哟,离线,有人找我吗?
lianghanyu
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:241 积分:2158 威望:0 精华:0 注册:2020/6/28 8:43:00
  发帖心情 Post By: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

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/20 21:47:00 [只看该作者]

打开目录,并选中指定文件
dim file as string = "D:\问题\复制.table"
System.Diagnostics.Process.Start("explorer.exe","/Select," & file)

 回到顶部
帅哥哟,离线,有人找我吗?
lianghanyu
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:241 积分:2158 威望:0 精华:0 注册:2020/6/28 8:43:00
  发帖心情 Post By:2020/10/21 9:01:00 [只看该作者]

完美解决.谢谢!!

 回到顶部