以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]文件管理器存放目录动态设置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173846)

--  作者:洮沙
--  发布时间:2021/12/19 15:29:00
--  [求助]文件管理器存放目录动态设置

老师,你好!窗口“文件管理器”控件属性中存放目录如何动态设置?

 


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20211219152629.png
图片点击可在新窗口打开查看

 

我写的以下代码不执行:


Dim tp1 As WinForm.FileManager = Forms("业务录入窗口").Controls("FileManager1")
Dim bh As String =  Forms("业务录入窗口").Controls("TextBox1").Value
tp1.Remote = False
Dim wjj As  String
If bh.Length < "7" Then
    tp1.FolderName = "..\\RemoteFiles\\申报资料"
Else
    wjj = bh.SubString(0,6)
    tp1.FolderName = "..\\RemoteFiles\\申报资料\\" & wjj & ""
End If

 

麻烦老师帮忙改一下,谢谢!


--  作者:有点蓝
--  发布时间:2021/12/19 20:47:00
--  
If bh.Length < "7" Then
    tp1.FolderName = projectpath & "RemoteFiles\\申报资料"
Else
    wjj = bh.SubString(0,6)
    tp1.FolderName = projectpath & "RemoteFiles\\申报资料\\" & wjj & ""
End If

指定的目录必须预先建好存在

--  作者:洮沙
--  发布时间:2021/12/20 6:53:00
--  
好的,谢谢!