Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教：关于局域网设置动态存放目录


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

主题：请教：关于局域网设置动态存放目录
帅哥哟，离线，有人找我吗？
bahamute
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1421 积分：11294 威望：0 精华：0 注册：2008/9/1 22:20:00 		请教：关于局域网设置动态存放目录  发帖心情 Post By：2014/7/10 0:52:00 [只看该作者]

access数据库，以下代码用于将图片存放到局域网服务器相应的用户名文件夹下，但运行结果不对，只是在本地项目Attachments目录下建立了相应文件夹（D:\ESHUI\xx管理系统1.0\Attachments\YESEC-PC\share$\HRdata\MySpace\张三），如何才能正确将文件复制到服务器相应的用户名文件夹下？请教高手！


Select Case e.DataCol.Name

    Case "样图"

Dim st As String  =”\\YESEC-PC\share$\HRdata\MySpace\”  &  _UserName

If FileSys.DirectoryExists(st) Then '如果目录 st 存在

            e.SubFolder = st

        Else

            FileSys.CreateDirectory(st)

            e.SubFolder = st

        End If

end select
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/7/10 8:51:00 [只看该作者]

FileSys.CreateDirectory(st)  这个代码是绝对没问题的

e.SubFolder = st 是无效的,只会在当前项目的Attachments下建立,因为e.SubFolder并不是根目录属性

你要设置这个列的DefaultFolder http://www.foxtable.com/help/topics/2043.htm
 回到顶部
帅哥哟，离线，有人找我吗？
bahamute
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1421 积分：11294 威望：0 精华：0 注册：2008/9/1 22:20:00 		  发帖心情 Post By：2014/7/10 9:05:00 [只看该作者]

谢谢bin回复
如果仅仅只是设置一个局域网目录，那之前已经搞定了。
现在想实现：
在增加文件之前，先判断用户名，并把文件存放到与用户名同名的局域网文件夹。
比如说这个路径：
用你二楼的方法是否可改为：
DataTables("表A").DataCols("样片").DefaultFolder = "\\YESEC-PC\share$\HRdata\MySpace\" &  _UserName

[此贴子已经被作者于2014-7-10 9:06:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/7/10 9:10:00 [只看该作者]

对

 回到顶部
帅哥哟，离线，有人找我吗？
bahamute
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1421 积分：11294 威望：0 精华：0 注册：2008/9/1 22:20:00 		  发帖心情 Post By：2014/7/10 13:34:00 [只看该作者]

bin你好，刚刚测试仍然有问题：

运行项目后，文件和图片还是存到了Attachments目录下，而不是局域网共享文件夹的指定目录，检查了共享文件夹，发现FileSys.CreateDirectory(st)代码起了作用，建立了相应文件夹，但为何文件没有存过去呢？

急需你的帮助，谢谢。


代码见楼下.
 回到顶部
帅哥哟，离线，有人找我吗？
bahamute
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1421 积分：11294 威望：0 精华：0 注册：2008/9/1 22:20:00 		  发帖心情 Post By：2014/7/10 13:34:00 [只看该作者]

BeforeAttachFile事件代码如下：


Select Case e.DataCol.Name

    Case "文件1"

        Dim st As String  ="\\HLRSB-PC\share$\HRdata\MySpace\"  &  _UserName

        If FileSys.DirectoryExists(st) Then '如果目录 st 存在

            DataTables("表A").DataCols("文件1").DefaultFolder = "\\HLRSB-PC\share$\HRdata\MySpace\" &  _UserName

        Else

            FileSys.CreateDirectory(st)

            DataTables("表A").DataCols("文件1").DefaultFolder = "\\HLRSB-PC\share$\HRdata\MySpace\" &  _UserName

        End If

End Select


[此贴子已经被作者于2014-7-10 13:34:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/7/10 14:05:00 [只看该作者]

 你去设置文件1的列属性，设置一下它的存放路径

 

 或者，你在afterOpenProject事件写入代码 DataTables("表A").DataCols("文件1").DefaultFolder = "\\HLRSB-PC\share$\HRdata\MySpace\"

 

 然后参考这个方法 http://www.foxtable.com/help/topics/2209.htm

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询