以文本方式查看主题

-  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