主题：[讨论]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

升级

刚升级！！！

新版本不应该有这个问题，如果你测试还有，提供ftp账号给我们测试一下

测试下面的的代码：

 

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

 

正常得很啊

好的  谢谢 ！！  我在试试

谢谢 把上面的用户名和密码删掉