S e lect Case e.DataCol.Name
Case "图片" '如果在图片列插入文件
If filesys.DirectoryExists(ProjectPath &"Attachments\凭证\图片\" & dr("年"))=False Then
filesys.CreateDirectory(ProjectPath &"Attachments\凭证\图片\"& dr("年"))
End If
e.Subfolder =ProjectPath &"Attachments\凭证\图片\"& e.DataRow("年") '将此文件存放在目录名为部门名称的子目录中.
msgbox(e.SubFolder)
Case "文件"
End Select
提示 不支持给定路径的格式
看帮助还是没有看懂
这是msgbox 弹出来的内容
C:\Users\Administrator\AppData\Local\kingsoft\WPS Cloud Files\userdata\qing\filecache\天堂里没有眼泪的云文档\FoxTable财务软件\Attachments\凭证\图片\2018
是云文档的原因?还是Wps ClounD 中间有空格?
[此贴子已经被作者于2019/4/17 12:38:38编辑过]
加好友 
发短信
Post By：2019/4/17 12:32:00 [只看该作者]
