AddFile

向FileManager中添加文件。

语法：

AddFile(FileName)

FileName: 要添加的文件名。

示例一

添加本地文件：

Dim dlg As New OpenFileDialog
Dim flm As WinForm.FileManager = e.Form.Controls("FileManager1")
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb"
If dlg.ShowDialog = DialogResult.OK Then
    flm.AddFile(dlg.FileName)
End If

示例二

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

Dim dlg As New OpenFileDialog
Dim flm As WinForm.FileManager = e.Form.Controls("FileManager1")
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb"
If dlg.ShowDialog = DialogResult.OK Then
    Dim pth As 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))
    End If
End If

示例三

如果使用FTP管理远程文件，可以参考下面的代码添加文件：

Dim flm As WinForm.FileManager = e.Form.Controls("FileManager1")
Dim Files As List(of String) = flm.FtpClient.SelectFile()
For Each File As String In Files
    flm.AddFile(File)
Next