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


本页地址:http://www.foxtable.com/webhelp/topics/2697.htm