以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=45054)
--  作者：有点甜
--  发布时间：2014/1/14 20:21:00
--  
 可以的哦，参考
--  作者：有点甜
--  发布时间：2014/1/14 20:33:00
--  
 可以询问文件夹名，或者根据登入用户的用户名或其他信息命名，都行。
--  作者：有点甜
--  发布时间：2014/1/14 21:01:00
--  
 代码你得改一下吧？改成存储的文件名，文件可以设置成任意一个变量的。直接用用户的名字去命名就行了。
 
 比如，去掉所有的代码，直接写代码

e.SubFolder = user.name 就行了

 或者

e.SubFolder = e.Datarow("第一列")
--  作者：有点甜
--  发布时间：2014/1/14 21:49:00
--  
Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    e.SubFolder = filesys.GetName(dlg.SelectedPath)
End If