以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助:递归字段生成文件夹路径  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=103033)

--  作者:湛江智
--  发布时间:2017/6/29 13:51:00
--  求助:递归字段生成文件夹路径
求助:递归字段生成文件夹路径
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:路径.foxdb



--  作者:有点色
--  发布时间:2017/6/29 14:22:00
--  

 你合成的逻辑是什么?

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:路径.foxdb


--  作者:湛江智
--  发布时间:2017/6/29 15:46:00
--  
下面这个按钮,如果该文件夹不存在,就新建该文件夹怎么实现呢?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:每个人一个文件夹.foxdb


--  作者:有点色
--  发布时间:2017/6/29 16:10:00
--  
Dim proc As new Process
Dim r As Row = e.Form.controls("Table1").Table.current
proc.File = r("盘符") & "\\" & r("绝对路径")
If FileSys.DirectoryExists(proc.File) = False Then
    FileSys.CreateDirectory(proc.File)
End If
proc.Start

--  作者:湛江智
--  发布时间:2017/6/29 19:08:00
--  
谢谢老师