表中附件列为多文件列
在表属性BeforeAttachFile事件设置代码，希望增加的文件能存放在新建的文件夹中，
Select Case e.DataCol.name
Case "附件"
Dim yy As String = Format(Date.Today(),"yyyy")
Dim mm As String = Format(Date.Today(),"MM")
Dim bh As String =Format(Date.Today(),"yyyyMMdd")
For i As Integer= 1 To 10000
Dim d As String ="d:\works\资料\" & yy &"\" & mm & "\" & bh & format(i,"0000")
If not FileSys.DirectoryExists(d) Then
FileSys.CreateDirectory(d)
e.SubFolder=d
Exit For
End If
Next
End Select
运行时能建立了新的文件夹，但出现错误信息：The given path's format is not supported.
增加文件无法复制到指定文件夹
加好友 
发短信
Post By：2014/7/1 12:00:00 [只看该作者]
