变,则通:
Dim sm As String = e.SourceFolder & "\" & e.FileNameIf FileSys.FileExists(sm) Then '如果指定的文件存在
Filesys.copyFile(sm,projectpath & "Attachments\" & e.FileName,True) '先复制 FileSys.DeleteFile(sm,2,3) '则彻底删除之
e.cancel = true
if e.datarow.isnull(e.datacol.name) then
e.datarow(e.datacol.name) = e.filename
else
e.datarow(e.datacol.name) = e.datarow(e.datacol.name) & vbcrlf & e.filename
end ifEnd If