[求助]使用内置文件管理器如何动态设置根目录? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

互联网应用的一个项目,在互联网下应用.一个表中"图纸文件"字段扩展类型为多文件,且设置参数如图.

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

在"图纸文件"字段中文件或图片放在不同的目录下,在读取这些文件时出错,如下图.

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

问题:如何动态设置这个目录呢?这个问题如何解决呢?谢谢

你说的是动态设置根目录么？直接设置列的FTPClient

Dim ftp1 As New FtpClient = DataTables("xxx").datacols("xxx").FTPClient

问题使用内置文件管理器不知道放到哪个事件中;还有每条记录中这一列中有多个文件,目录可能都不太一样,在哪个地方设呢?

文件路径可以不一样，因为文件名就是路径了。

只要你对应路径下有文件，就可以随便操作下载查看的。

一个窗口个有一个表控件和一个表（销售合同）关联，是主表。

这个表中有一列（图纸文件）设为多文件，并对列属性做了设置，见上图1;

打开这个窗口时利用 Tables("销售合同").Cols("图纸文件").OpenWindow() 打开了内置文件管理器；

远程根目录为/图纸文件；但是销售合同表中的图纸文件内容是多行且都是/图纸文件下属目录，见上图二；

现在打开这个窗口，出现了内置文件管理器，打开文件时出错，见上图二；怎么解决啊！谢谢

前期做过的工作是在这个窗口打开事件中做了如下设置：

Dim fm1 As WinForm.FileManager = Tables("销售合同").Cols("图纸文件").FileManager

fm1.DeleteCommand.Enabled = False

fm1.ClearCommand.Enabled = False

Dim ftp As New FTPClient

ftp.Host="kennt.vicp.cc"

ftp.Account = "XXXXX"

ftp.password = "XXXXXXXXXXX"

Dim mlm As String="/图纸文件/"

If ftp.DirExists(mlm)=False Then ftp.MakeDir(mlm) '则创建Data目录

ftp.DeleteEnabled =False '禁用删除文件按钮

ftp.RenameEnabled = False '禁用重命名文件按钮

ftp.MakerDirEnabled=False

ftp.RootDir = mlm '设置根目录

fm1.FTPclient = ftp

取消或者加上都出错！

一个在线运营的系统做例子有难度啊？能不能远程看下？

腾出一块FTP控件,放几个文件做例子.有什么难度?

实际是远程SQL数据库的。做个例子就要改，条件和情况都发生了变化。

你管那些做什么,就核心问题做个例子即可.

主题：[求助]使用内置文件管理器如何动态设置根目录?