Dim ftp As new FTPClient
ftp.Host = "192..168.1.35"
ftp.Account = "tester"
ftp.Password = "tester"
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim lr As WinForm.ListViewRow = lvw.Current
If lr IsNot Nothing Then
Dim dlg As new folderbrowserdialog
If dlg.showdialog = dialogresult.ok Then
e.Form.text = "版本目录list 你选择的文件下载中...."
MessageBox.Show("开始下载")
If ftp.Download(vars("zhygwjj") & "\" & lr.text,dlg.Selectedpath & "\" & lr.text) = True Then '若下载成功
e.Form.text = "版本目录list"
MessageBox.Show("所选择的文件下载成功!","提醒")
Else
MessageBox.Show("所选择的文件下载失败!","提醒")
e.Form.text = "版本目录list"
End If
MessageBox.show(vars("zhygwjj")) --------弹出的路径是正确的。却提示下载失败，请看看download是否有问题。
End If
End If
加好友 
发短信
Post By：2015/3/17 16:01:00 [显示全部帖子]
