专家坐堂-文件管理器的存放目录设定Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  文件管理器的存放目录设定  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184912)

--  作者：shqpldczj
--  发布时间：2023/1/15 10:13:00
--  文件管理器的存放目录设定

Dim ipfile As String = ProjectPath & "catch\\ip2.txt"
If FileSys.FileExists(ipfile) = True Then
Dim dbfile As String = FileSys.ReadAllText(ipfile)
DataTables("发票").DataCols("附件").DefaultFolder = "dbfile"
End If

我想通过修改iP2.txt来设定文件管理器的存放目录代码有问题请老师看看

--  作者：shqpldczj
--  发布时间：2023/1/15 10:24:00
--  改了也没成功

Dim ipfile As String = Projectfile & "catch\\ip2.txt"
If FileSys.FileExists(ipfile) = True Then
Dim dbfile As String = FileSys.ReadAllText(ipfile)
DataTables("发票").DataCols("附件").DefaultFolder = "\'" & dbfile & " \'"
End If

--  作者：shqpldczj
--  发布时间：2023/1/15 11:02:00
--  改好了，已经ok

Dim ipfile As String = Projectpath & "catch\\ip2.txt"
If FileSys.FileExists(ipfile) = True Then
Dim dbfile As String = FileSys.ReadAllText(ipfile)
DataTables("发票").DataCols("附件").DefaultFolder = dbfile
End If