If lr IsNot Nothing Then
e.Form.text = bgid & "附件目录文件list 文件打开中...."
If ftp.Download(vars("ljwjj") & "\" & lr.text,ProjectPath & "\RemoteFiles\" & lr.text) = True Then
e.Form.Text = bgid & "附件目录文件list"
Dim proc As new Process
proc.File = ProjectPath & "\RemoteFiles\" & lr.text
proc.Start
Else
MessageBox.Show("所选文件打开失败!请联系刘基永1034","博达BUG管理系统提醒您",MessageBoxButtons.OK,MessageBoxIcon.Warning)
e.Form.Text = bgid & "附件目录文件list"
End If
Else
MessageBox.Show("请选择一个文件!然后点击打开按钮","博达BUG管理系统提醒您",MessageBoxButtons.OK,MessageBoxIcon.Error)
End If