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

1、在文件管理器中增加文件后，源文件夹中文件自动复制到指定目录后，源文件如果再保留容易造成混淆，我想增加文件后就当时删除源文件夹中文件，只保留一份文件，这段代码该在那个事件中写

2、文件管理器中添加文件夹后，文件管理器中显示的路径还是源文件夹的路径，没有自动复制到指定的目录下，如何能自动复制

1、我在 BeforeAttachFile 事件中写以下代码：

 Dim sm As String = e.SourceFolder & "\" & e.FileName
  If FileSys.FileExists(sm) Then '如果指定的文件存在
      FileSys.DeleteFile(sm,2,3) '则彻底删除之
  End If    

执行后，文件倒是删除了，但不能复制到指定文件夹中，提示找不到文件

2、是在属性中设置为自动复制

2、我以桌面文件夹为例：点文件管理器“目录”后，显示[C:\Users\lenovo\Desktop\Catch]，这还是桌面文件夹，在指定文件夹中没有找到这个目录。路径没有搞错，在BeforeAttachFile 事件中有以下代码；

      Dim st As String  =ProjectPath & "Attachments\" & e.DataRow("年度") & "\" & e.DataRow("分类") & "\" & e.DataRow("标签")
        If FileSys.DirectoryExists(st) Then '如果目录 st 存在
            DataTables("文档管理").DataCols("附件").DefaultFolder = st
        Else
            FileSys.CreateDirectory(st)
            DataTables("文档管理").DataCols("附件").DefaultFolder = st
        End If

执行后，到附件列属性中看到附件列属性中存放目录就是指定的目录

1、的问题还请专家们给个方案

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

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    

狐爸应该添加一个 AfterAttachFile 事件