主题：示助：如何在文件管理器中增加加文件后删除源文件

你先自动复制，再删除吧：

Dim sm As String = e.SourceFolder & "\" & e.FileName
If FileSys.FileExists(sm) Then '如果指定的文件存在

      Filesys.copyFile(sm,projectpath & "Attachments\" & e.FileName,True) '先复制
      FileSys.DeleteFile(sm,2,3) '则彻底删除之
End If    

变，则通：

Dim sm As String = e.SourceFolder & "\" & e.FileName
If 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 if
End If