[求助]最新版的2013远程文件管理器是不是有问题呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

智友软件工作室

如题：

用代码设置的远程文件管理服务器

'现场音频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

piv2.FTPclient = ftp2

打开窗口后不报错

打开管理可以看到已经设置好的根目录没有错误

但是点击增加的时候打开的窗口不是设置好的根目录，是远程服务器的根目录，请狐爸检查一下是不是有漏洞。

且添加文件后，当点击目录打开另存的时候都会报错的

领导们看看是不是有错误呢？

[此贴子已经被作者于2013-5-1 13:11:46编辑过]

智友软件工作室

哪位领导帮看看呢？有没有别人有这种情况呢？图片管理器的代码和这个文件管理器的代码一样，结果是图片管理器运行正常，文件管理器运行出现上述问题。

你代码问题，你设置的是ftp2的根目录，这是一个新创建的ftp，不影响图片管理器。

你可以这样设置：

Dim fl As WinForm.PictureViewer = Tables("员工").Cols("照片").PictureViewer
fl.FTPclient.RootDir = "/data"

我也是文件管理器有问题，升级后就好了。

智友软件工作室

以下是引用狐狸爸爸在2013-5-2 18:18:00的发言：

你代码问题，你设置的是ftp2的根目录，这是一个新创建的ftp，不影响图片管理器。

你可以这样设置：

Dim fl As WinForm.PictureViewer = Tables("员工").Cols("照片").PictureViewer
fl.FTPclient.RootDir = "/data"

您说的没错ftp是图片管理器，运行没有错误，现在是ftp2文件管理器有问题。再增加文件的时候默认打开的不是根目录。

收到，我检查一下。

智友软件工作室

上周已经和狐表客服联系过了，不知道这到底是不是一个问题呢？什么时候能够解决呢？

主题：[求助]最新版的2013远程文件管理器是不是有问题呢？