以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教：关于局域网设置动态存放目录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53531)
--  作者：bahamute
--  发布时间：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
--  发布时间：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
--  发布时间：2014/7/10 9:05:00
--  
谢谢bin回复
如果仅仅只是设置一个局域网目录，那之前已经搞定了。
现在想实现：
在增加文件之前，先判断用户名，并把文件存放到与用户名同名的局域网文件夹。
比如说这个路径：
用你二楼的方法是否可改为：
DataTables("表A").DataCols("样片").DefaultFolder = "\\\\YESEC-PC\\share$\\HRdata\\MySpace\\" &  _UserName

[此贴子已经被作者于2014-7-10 9:06:13编辑过]
--  作者：Bin
--  发布时间：2014/7/10 9:10:00
--  
对
--  作者：bahamute
--  发布时间：2014/7/10 13:34:00
--  
bin你好，刚刚测试仍然有问题：

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

急需你的帮助，谢谢。


代码见楼下.
--  作者：bahamute
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：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