如下,不行啊!!
Dim lr As WinForm.ListViewRow = lvw.Current
If lr IsNot Nothing Then
If lr.Text = "暂时没有文件"
MessageBox.Show("暂时没有文件")
Return
End If
Dim Dow As String = e.Form.Controls("下载路径").text
If Dow IsNot Nothing Then
e.Form.text = "ftp管理器 文件下载中...."
If ftp.Download(path & "\" & lr.text,Dow & "\" & lr.text,True) = True Then '若下载成功
file = Dow & "\" & lr.text '定义一个用于下载后文件路径与名称的变量
e.Form.text = "ftp管理器"
MessageBox.Show("下载成功!","提醒")
If rck.Checked = True Then '如果下载后重命名的复选框被打勾
ftp.Rename(Dow & "\" & lr.text,name2) '则下载后重新命名
End If
Else
MessageBox.Show("下载失败!","提醒")
e.Form.text = "ftp管理器"
End If
Else