- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]动态路径，按当前单元格值，新建文件夹 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83083)
-- 发布时间：2016/3/31
-- [求助]动态路径，按当前单元格值，新建文件夹
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:动态路径，按当前单元格值，新建文件夹.table |
在路径 C:\\test（动态可变的文件夹），按列（界、门当前单元格值，新建文件夹）FileSys代码有问题，前辈高手帮忙修一修了，谢谢
此主题相关图片如下：qq截图20160331001158.png
[此贴子已经被作者于2016/3/31 0:12:33编辑过]
-- 发布时间：2016/3/31 1:13:00
--
Dim dr As DataRow = e.DataRow
If dr.IsNull ("分类") Then
msgbox(" 分类 品牌名 不能为空")
e.cancel = True
Else
Select Case e.DataCol.Name
Case "LOGO"
e.SubFolder = "STD设计院品牌管理" & "\\" & dr("分类") & "\\" & dr("品牌名")
SystemReady = True
End Select
End If
-- 发布时间：2016/3/31 2:05:00
--
Dim dr As String = Tables("表A").Current("路径") & "\\" & Tables("表A").Current("界")
If FileSys.DirectoryExists(dr) = False Then \'如果文件夹存在,则打开
FileSys.CreateDirectory(dr) \'如果文件夹不存在,则新建后打开
End If
Dim Proc As New Process \'定义一个新的Process
Proc.File = dr
Proc.Start()
-- 发布时间：2016/3/31 9:04:00
--
老大的代码这简洁，赞