Foxtable(狐表)用户栏目专家坐堂 → [求助]FTP的FileExists方法无法正常检测到文件是否存在


  共有7136人关注过本帖树形打印复制链接

主题:[求助]FTP的FileExists方法无法正常检测到文件是否存在

帅哥哟,离线,有人找我吗?
niu_niu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:120 积分:1624 威望:0 精华:0 注册:2008/10/6 15:10:00
  发帖心情 Post By:2015/1/22 14:17:00 [显示全部帖子]

[求助]FTP的FileExists方法无法正常检测到文件是否存在

 

 

-----这个问题有解决吗?怎么2014版本中仍存在该问题呢?


 回到顶部
帅哥哟,离线,有人找我吗?
niu_niu
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:120 积分:1624 威望:0 精华:0 注册:2008/10/6 15:10:00
  发帖心情 Post By:2015/1/23 10:25:00 [显示全部帖子]

[upload=zip,测试ftp.zip]viewFile.asp?ID=60358[/upload]   

  

文件已上传,重复上传,代码中有判断文件是都存在的,可是不提示,仍然能够上传。还请各位老师 帮忙指点,谢谢!

 

上传代码如下:

Dim dlg As New OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim ftp1 As new ftpclient
    Dim file As String
    file=dlg.FileName.SubString(dlg.FileName.LastIndexOf("\")+1 )
    ftp1.host="183.62.138.253"
    ftp1.Account = "foxtable"
    ftp1.password = "chipsinfo.com.cn"
    ftp1.TimeOut=500000
    ftp1.UTF8=False
   
    If ftp1.DirExists("立项文档\测试FTP")  Then
        messagebox.Show("目录已存在!")
    Else
        ftp1.MakeDir("立项文档\测试FTP")
    End If
    Dim fs As String = "立项文档\测试FTP\" & file
   
    If ftp1.FileExists(fs) = True Then
        messagebox.Show("该文件已存在,不可重复上传!")
    Else
        ftp1.Upload(dlg.FileName,"立项文档\测试FTP\" & file ,True)
       
        Dim r As Row= Tables("表A").Current
        If r IsNot Nothing Then
            If r("第一列")="" Then
                r("第一列")=fs
            Else
                If r("第一列").Contains(fs)=False Then
                    r("第一列") = r("第一列") & Chr(13) & Chr(10) & fs
                End If
            End If
        End If
    End If
   
End If

[此贴子已经被作者于2015-1-23 10:29:02编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
niu_niu
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:120 积分:1624 威望:0 精华:0 注册:2008/10/6 15:10:00
  发帖心情 Post By:2015/1/23 15:40:00 [显示全部帖子]

问题已解决,谢谢   甜老师!

 回到顶部