Foxtable(狐表)用户栏目专家坐堂 → [求助]文件管理器存放目录动态设置


  共有2390人关注过本帖树形打印复制链接

主题:[求助]文件管理器存放目录动态设置

帅哥哟,离线,有人找我吗?
洮沙
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:815 积分:7004 威望:0 精华:0 注册:2017/8/31 12:07:00
[求助]文件管理器存放目录动态设置  发帖心情 Post By: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

 

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


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107872 积分:548723 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

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

 回到顶部
帅哥哟,离线,有人找我吗?
洮沙
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:815 积分:7004 威望:0 精华:0 注册:2017/8/31 12:07:00
  发帖心情 Post By:2021/12/20 6:53:00 [只看该作者]

好的,谢谢!

 回到顶部