以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  文件管理器中增加文件到指定子目录下  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109093)
--  作者：有点蓝
--  发布时间：2017/11/3 21:59:00
--  
If   fname = e.DataRow("工程名称") Then
    msgbox(pth & fname & "\\招标阶段资料") \'弹出路径看看
    If FileSys.DirectoryExists(pth & fname & "\\招标阶段资料")  = False
        FileSys.CreateDirectory(pth & fname & "\\招标阶段资料")
    End If
    e.SubFolder = pth & fname & "\\招标阶段资料"
    Exit For
End If
[此贴子已经被作者于2017/11/3 21:59:01编辑过]
--  作者：有点蓝
--  发布时间：2017/11/3 22:53:00
--  
Select Case e.DataCol.Name
    Case "资料上传" \'如果在图片列插入文件
        Dim pth As String = ProjectPath & "Attachments\\用户工程\\" & e.DataRow("工程名称")
        If FileSys.DirectoryExists(pth)  = False Then
            FileSys.CreateDirectory(pth)
        End If
        If FileSys.DirectoryExists(pth & "\\招标阶段资料")  = False Then
            FileSys.CreateDirectory(pth & "\\招标阶段资料")
        End If
        e.SubFolder ="用户工程\\" & e.DataRow("工程名称") & "\\招标阶段资料"
End Select
[此贴子已经被作者于2017/11/4 14:15:31编辑过]
--  作者：有点蓝
--  发布时间：2017/11/3 23:12:00
--  
我测试没有问题
--  作者：有点蓝
--  发布时间：2017/11/4 8:39:00
--  
文件实际是保存在“Attachments\\用户工程\\BBB\\招标阶段资料\\”的，请到资源管理器中查看，表格只能显示子目录，不会显示Attachments的，不要只看表面
--  作者：有点蓝
--  发布时间：2017/11/4 14:15:00
--  
e.SubFolder = "用户工程\\" & e.DataRow("工程名称") & "\\招标阶段资料"