Foxtable(狐表) → 用户栏目 → 专家坐堂 → 找不到文件。。。


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

主题：找不到文件。。。
帅哥哟，离线，有人找我吗？
fubblyc
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		找不到文件。。。  发帖心情 Post By：2014/7/31 9:46:00 [只看该作者]

各位老师好，

Dim vtxt As String = "Version.txt"
Dim pzip As String = "Publish.zip"
Dim utxt As String = "update.txt"
Dim uzip As String = "update.zip"

Dim ftp As New FTPClient
ftp.Host = "42.51.152.221"
ftp.Account = "abc"
ftp.Password = "abcdef"
ftp.Port = "21"
ftp.RootDir = "\fox\lls\Update" '如果升级所需文件刚好放置在FTP的根目录下,可以不用设置此属性;否则需要设置目录路径.
'ftp.RootDir = "\升级文件所在目录"

Dim zip As New ZipFile

'连接FTP服务器--------------------
If ftp.Connected = False '如果FTP没有连接
    If ftp.Connect Then '连接FTP
   '     MessageBox.Show("FTP服务器连接成功!")
    Else
        MessageBox.Show("FTP服务器连接失败!")
        Return
    End If
End If

'检测升级所需的4个文件--------------------
If ftp.FileExists(vtxt) = False OrElse ftp.FileExists(pzip) = False OrElse ftp.FileExists(utxt) = False OrElse ftp.FileExists(uzip) = False Then
    MessageBox.Show("服务器缺少升级所需文件!" & vbcrlf & vtxt & "  " & pzip & "  " & utxt & "  " & uzip,"提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
    Return
End If


图片点击可在新窗口打开查看此主题相关图片如下：ftp.jpg
图片点击可在新窗口打开查看


明明FTP上有，

项目却死活 执行了这条代码：

 MessageBox.Show("服务器缺少升级所需文件!" & vbcrlf & vtxt & "  " & pzip & "  " & utxt & "  " & uzip,"提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

不知道什么情况。。。 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/7/31 9:54:00 [只看该作者]

加入代码一个一个试

msgbox(ftp.FileExists(vtxt))
msgbox(ftp.FileExists(p.RootDir & "\" & vtxt))
msgbox(ftp.FileExists("/fox/lls/Update/" & vtxt))

 
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2014/7/31 10:12:00 [只看该作者]

甜老师，

msgbox(ftp.FileExists(vtxt))   提示  TRUE
msgbox(ftp.FileExists(p.RootDir & "\" & vtxt))  这句没有测试。。。
msgbox(ftp.FileExists("/fox/lls/Update/" & vtxt))   提示  TRUE
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/7/31 10:15:00 [只看该作者]

 回复3楼，接着测试其它的呗，看哪一个有问题

 

Dim vtxt As String = "Version.txt"
Dim pzip As String = "Publish.zip"
Dim utxt As String = "update.txt"
Dim uzip As String = "update.zip"
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2014/7/31 10:20:00 [只看该作者]

甜老师，全部为 TRUE

MessageBox.Show(ftp.FileExists(vtxt))
'MessageBox.Show(ftp.FileExists(RootDir & "\" & vtxt))
MessageBox.Show(ftp.FileExists("/fox/lls/Update/" & vtxt))

MessageBox.Show(ftp.FileExists(pzip))
'MessageBox.Show(ftp.FileExists(RootDir & "\" & vtxt))
MessageBox.Show(ftp.FileExists("/fox/lls/Update/" & pzip))

MessageBox.Show(ftp.FileExists(utxt))
'MessageBox.Show(ftp.FileExists(RootDir & "\" & vtxt))
MessageBox.Show(ftp.FileExists("/fox/lls/Update/" & utxt))

MessageBox.Show(ftp.FileExists(uzip))
'MessageBox.Show(ftp.FileExists(RootDir & "\" & vtxt))
MessageBox.Show(ftp.FileExists("/fox/lls/Update/" & uzip))
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2014/7/31 10:21:00 [只看该作者]

难道是我FTP空间的问题？？

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/7/31 10:22:00 [只看该作者]

全部为True怎么可能进入IF里面呢.

 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2014/7/31 10:24:00 [只看该作者]

Bin老师，不明白您什么意思。。。

我是这样写的：

Dim vtxt As String = "Version.txt"
Dim pzip As String = "Publish.zip"
Dim utxt As String = "update.txt"
Dim uzip As String = "update.zip"

Dim uvtxt As String = utmp & "\Version.txt"
Dim upzip As String = utmp & "\Publish.zip"
Dim uutxt As String = utmp & "\update.txt"
Dim uuzip As String = utmp & "\update.zip"

Dim ftp As New FTPClient
ftp.Host = "42.51.152.221"
ftp.Account = ""
ftp.Password = ""
ftp.Port = "21"
ftp.RootDir = "\fox\lls\Update" '如果升级所需文件刚好放置在FTP的根目录下,可以不用设置此属性;否则需要设置目录路径.
'ftp.RootDir = "\升级文件所在目录"

Dim zip As New ZipFile

'连接FTP服务器--------------------
If ftp.Connected = False '如果FTP没有连接
    If ftp.Connect Then '连接FTP
   '     MessageBox.Show("FTP服务器连接成功!")
    Else
        MessageBox.Show("FTP服务器连接失败!")
        Return
    End If
End If

MessageBox.Show(ftp.FileExists(vtxt))
'MessageBox.Show(ftp.FileExists(RootDir & "\" & vtxt))
MessageBox.Show(ftp.FileExists("/fox/lls/Update/" & vtxt))

MessageBox.Show(ftp.FileExists(pzip))
'MessageBox.Show(ftp.FileExists(RootDir & "\" & vtxt))
MessageBox.Show(ftp.FileExists("/fox/lls/Update/" & pzip))

MessageBox.Show(ftp.FileExists(utxt))
'MessageBox.Show(ftp.FileExists(RootDir & "\" & vtxt))
MessageBox.Show(ftp.FileExists("/fox/lls/Update/" & utxt))

MessageBox.Show(ftp.FileExists(uzip))
'MessageBox.Show(ftp.FileExists(RootDir & "\" & vtxt))
MessageBox.Show(ftp.FileExists("/fox/lls/Update/" & uzip))

'检测升级所需的4个文件--------------------
If ftp.FileExists(vtxt) = False OrElse ftp.FileExists(pzip) = False OrElse ftp.FileExists(utxt) = False OrElse ftp.FileExists(uzip) = False Then
    MessageBox.Show("服务器缺少升级所需文件!" & vbcrlf & vtxt & "  " & pzip & "  " & utxt & "  " & uzip,"提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
    Return
End If

[此贴子已经被作者于2014-7-31 10:24:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/7/31 10:26:00 [只看该作者]

全部为TRUE

怎么可能符合这个IF条件呢

If ftp.FileExists(vtxt) = False OrElse ftp.FileExists(pzip) = False OrElse ftp.FileExists(utxt) = False OrElse ftp.FileExists(uzip) = False Then
    MessageBox.Show("服务器缺少升级所需文件!" & vbcrlf & vtxt & "  " & pzip & "  " & utxt & "  " & uzip,"提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
    Return
End If
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2014/7/31 10:29:00 [只看该作者]

Bin 老师，但是提示就是这样：


图片点击可在新窗口打开查看此主题相关图片如下：缺少.png
图片点击可在新窗口打开查看
 回到顶部
总数 19 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询