以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]下载失败，没找到原因。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65511)
--  作者：liujywwy
--  发布时间：2015/3/17 16:01:00
--  [求助]下载失败，没找到原因。
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
--  作者：jialihaha
--  发布时间：2015/3/17 16:08:00
--  
ftp.Host = "192..168.1.35"
是不是这里错了，两个点
--  作者：有点甜
--  发布时间：2015/3/17 16:08:00
--  

 弹出两个路径，如果路径正确且有对应的文件(路径，必须是绝对路径)，就不可能下载不成功！

 

msgbox(vars("zhygwjj") & "\\" & lr.text)

 

msgbox(dlg.Selectedpath & "\\" & lr.text)
--  作者：liujywwy
--  发布时间：2015/3/17 16:22:00
--  
多了一个点。唉。
现在发现另外一个问题。
我多点击几次“上传”或者“下载”按钮，会发现连接不上ftp了。但是server-u仍然是running。然后stop，再然后再次start又正常了。
这是怎么回事。
--  作者：有点甜
--  发布时间：2015/3/17 16:30:00
--  

 可能是限制了连接数

 

http://www.baidu.com/baidu?wd=Serv-U+%C1%AC%BD%D3%CA%FD&tn=monline_4_dg

 

 

 每次你使用完ftp的时候，应该Close掉

 

 ftp.Close