主题：请教：关于局域网设置动态存放目录

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