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


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

主题：找不到文件。。。
帅哥哟，离线，有人找我吗？
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)

不知道什么情况。。。 
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


图片点击可在新窗口打开查看此主题相关图片如下：缺少.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2014/7/31 10:30:00 [显示全部帖子]

会不会是FTP空间的不稳定的问题？

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


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2014/7/31 10:32:00 [显示全部帖子]

之前也碰到过，关掉重新再打开，就能升级了。

这次不管打开多少次，都是这样子。

我怀疑这个服务器不稳定。。。
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2014/7/31 10:59:00 [显示全部帖子]

真的是不稳定，测试8次，每次都不一样：

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

output.show(ftp.FileExists(vtxt))
'output.show(ftp.FileExists(RootDir & "\" & vtxt))
output.show(ftp.FileExists("/fox/lls/Update/" & vtxt))

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

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

output.show(ftp.FileExists(uzip))
'output.show(ftp.FileExists(RootDir & "\" & vtxt))
output.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
   output.show("服务器缺少升级所需文件!" )
 '   Return
End If



图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2014/7/31 11:00:00 [显示全部帖子]

其他的：

图片点击可在新窗口打开查看此主题相关图片如下：7.jpg
图片点击可在新窗口打开查看
 回到顶部
总数 13 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.07031 秒, 5 次数据查询