主题：如何动态设置文件存储目录--为了安全需要，文件管理器中点 增加 打开的路径能否 不是默认为指定的 存放目录？而是默认为 我的文档或其他指定位置？

顶。。我也有这个问题。。。

楼主在列属性中，设置默认路径为： \\192.168.0.118\共享目录名

参考：

http://www.foxtable.com/help/topics/1506.htm

 
然后修改代码：
 
Dim dr As DataRow = e.DataRow
If dr.IsNull("客户编码") Or Dr.IsNull("服务日期")  Then
    MessageBox.Show("客户编码与服务日期不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    e.SubFolder = dr("客户编码") & "\" & dr("服务日期").Year
End If
 
这样就能解决问题了，文件存放的目录就是： \\192.168.0.118\共享目录名\客户编码\年