主题：[求助]自动复制（同步）文件到Attachments目录

示例二

如果想将添加的文件自动复制到Attachments目录，就像内置的增加按钮一项，可以将代码改为：

Dimdlg AsNew OpenFileDialog
Dimflm AsWinForm.FileManager = e.Form.Controls("FileManager1")
dlg.Filter="Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb"
Ifdlg.ShowDialog = DialogResult.OKThen
Dim pthAs String =ProjectPath &"Attachments\"
If dlg.FileName.ToLower.StartsWith(pth.ToLower)Then '如果文件来自Attachments目录
flm.AddFile(dlg.FileName.SubString(pth.Length))
Else '如果不是
FileSys.CopyFile(dlg.FileName,pth &FileSys.GetName(dlg.FileName))
flm.AddFile(FileSys.GetName(dlg.FileName))
EndIf
End If

请问帮助的这个代码用在哪里啊？

另外能不能再计划管理里面添加一个代码，把我指定目录的文件自动复制到Attachments目录？