示例二

如果想将添加的文件自动复制到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目录？

1、直接做一个按钮，或者写到 BeforeAddFile 事件

http://www.foxtable.com/webhelp/scr/2638.htm

2、参考 http://www.foxtable.com/webhelp/scr/0343.htm

或者用监视器 http://www.foxtable.com/webhelp/scr/1963.htm