示例二
如果想将添加的文件自动复制到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目录？
[此贴子已经被作者于2018/10/6 9:17:17编辑过]
加好友 
发短信
Post By：2018/10/6 9:14:00 [只看该作者]
