以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]ftp  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=41225)
--  作者：wsxdwh
--  发布时间：2013/10/14 14:58:00
--  [讨论]ftp

以下代码有何问题，无论ftp 上有无文件  都提示"此文件不存在!"

 

If ftp1.FileExists("\\whkj\\"& j1 &"\\"& j2 &"\\"& sc &".doc")   Then
    Dim dlg As New SaveFileDialog
    dlg.Filter= "Excel文件|*.xls|Word文件|*.doc"
    If dlg.ShowDialog = DialogResult.Ok Then
        MessageBox.Show("将文件保存到:" & dlg.FileName,"提示")
    End If
    If ftp1.Download("\\whkj\\"& j1 &"\\"& j2 &"\\"& sc &".doc", dlg.FileName) Then
        Dim Proc As New Process
        Proc.File = dlg.FileName
        Proc.Start()
    Else
        messagebox.Show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
Else
    messagebox.Show("此文件不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

[此贴子已经被作者于2013-10-14 22:37:43编辑过]
--  作者：狐狸爸爸
--  发布时间：2013/10/14 15:01:00
--  
升级
--  作者：wsxdwh
--  发布时间：2013/10/14 15:12:00
--  
刚升级！！！
--  作者：狐狸爸爸
--  发布时间：2013/10/14 15:13:00
--  
新版本不应该有这个问题，如果你测试还有，提供ftp账号给我们测试一下
--  作者：wsxdwh
--  发布时间：2013/10/14 15:26:00
--  
[此贴子已经被作者于2013-10-14 15:35:37编辑过]
--  作者：狐狸爸爸
--  发布时间：2013/10/14 15:31:00
--  

测试下面的的代码：

 

Dim ftp1 As New FtpClient
ftp1.Host="1111"
ftp1.Account = "222"
ftp1.Password = "333"
messagebox.show(ftp1.FileExists("/data/360.jpg"))
messagebox.show(ftp1.FileExists("/data/361.jpg"))

 

一个true,一个false

 

正常得很啊

[此贴子已经被作者于2013-10-14 15:43:06编辑过]
--  作者：wsxdwh
--  发布时间：2013/10/14 15:36:00
--  

好的  谢谢 ！！  我在试试
--  作者：wsxdwh
--  发布时间：2013/10/14 15:37:00
--  
谢谢 把上面的用户名和密码删掉