- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]最新版的2013远程文件管理器是不是有问题呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32383)
-- 发布时间：2013/5/1 13:08:00
-- [求助]最新版的2013远程文件管理器是不是有问题呢？
如题：
用代码设置的远程文件管理服务器
\'现场音频FTP
Dim fuwuqi2 As String
Dim yonghu2 As String
Dim mima2 As String
Dim mulu2 As String = GetPY("" & _username & "")
Dim dr2 As DataRow = DataTables("ftp").Find("ftp = \'现场音频\'")
If dr2 IsNot Nothing Then \'如果找到的话
fuwuqi2 = dr2("服务器")
yonghu2 = dr2("用户")
mima2 = dr2("密码")
End If
Dim piv2 As WinForm.FileManager = e.Form.Controls("FileManager1")
Dim ftp2 As New FTPClient
ftp2.host = "" & fuwuqi2 & ""
ftp2.Account = "" & yonghu2 & ""
ftp2.password = "" & mima2 & ""
If ftp2.DirExists("\\" & mulu2 & "") Then
ftp2.RootDir = "\\" & mulu2 & "" \'设置根目录
Else
If ftp2.MakeDir("\\" & mulu2 & "") Then
ftp2.RootDir = "\\" & mulu2 & "" \'设置根目录
Else
Messagebox.Show("创建目录失败,请重新打开窗口!")
Return
End If
End If
piv2.FTPclient = ftp2
打开窗口后不报错
打开管理可以看到已经设置好的根目录没有错误
但是点击增加的时候打开的窗口不是设置好的根目录，是远程服务器的根目录，请狐爸检查一下是不是有漏洞。
且添加文件后，当点击目录 打开 另存的时候都会报错的
领导们看看是不是有错误呢？
[此贴子已经被作者于2013-5-1 13:11:46编辑过]
-- 发布时间：2013/5/1 22:39:00
--
要沉底
-- 发布时间：2013/5/2 14:06:00
--
自己顶起
-- 发布时间：2013/5/2 14:33:00
--
哪位领导帮看看呢？有没有别人有这种情况呢？图片管理器的代码和这个文件管理器的代码一样，结果是图片管理器运行正常，文件管理器运行出现上述问题。
-- 发布时间：2013/5/2 14:55:00
--
-- 发布时间：2013/5/2 18:18:00
--
你代码问题，你设置的是ftp2的根目录，这是一个新创建的ftp，不影响图片管理器。
你可以这样设置：
Dim fl As WinForm.PictureViewer = Tables("员工").Cols("照片").PictureViewer
fl.FTPclient.RootDir = "/data"
-- 发布时间：2013/5/2 20:33:00
--
我也是文件管理器有问题，升级后就好了。
-- 发布时间：2013/5/3 10:08:00
--
以下是引用狐狸爸爸在2013-5-2 18:18:00的发言：
您说的没错ftp是图片管理器，运行没有错误，现在是ftp2文件管理器有问题。再增加文件的时候默认打开的不是根目录。
你代码问题，你设置的是ftp2的根目录，这是一个新创建的ftp，不影响图片管理器。
你可以这样设置：
Dim fl As WinForm.PictureViewer = Tables("员工").Cols("照片").PictureViewer
fl.FTPclient.RootDir = "/data"
-- 发布时间：2013/5/3 11:25:00
--
收到，我检查一下。
-- 发布时间：2013/5/6 13:39:00
--
上周已经和狐表客服联系过了，不知道这到底是不是一个问题呢？什么时候能够解决呢？