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


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

主题：FTP下载文件后,自动打开目录并且选中文件
帅哥，在线噢！
lianghanyu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

文件存放在FTP服务器上.

 

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

 

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

 

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

 

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

 

 


图片点击可在新窗口打开查看此主题相关图片如下：222.gif
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

写了什么代码？

 回到顶部
帅哥，在线噢！
lianghanyu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：284 积分：2513 威望：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


加好友 发短信
等级：超级版主 帖子：111414 积分：567140 威望：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


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

完美解决.谢谢!!

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询