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

文件存放在FTP服务器上.

 

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

 

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

 

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

 

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

 

 

此主题相关图片如下：222.gif

    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

完美解决.谢谢!!