/**/
''' -----------------------------------------------------------------------------
''' <summary>
''' 加入一个文件
''' </summary>
''' <param name="strFile">文件名</param>
''' <param name="PortalId">门户ID</param>
''' <param name="ClearCache">指示文件缓存是否清除的标志</param>
''' <remarks>这个方法被SynchonizeFolder方法调用,当文件存在于文件系统中而没有存在于数据库中时
''' </remarks>
''' <history>
''' [cnurse] 12/2/2004 Created
''' [cnurse] 04/26/2006 Updated to account for secure storage
''' </history>
''' -----------------------------------------------------------------------------
Private
Shared
Function AddFile()
Function AddFile(ByVal strFile As String, ByVal PortalId As Integer, ByVal ClearCache As Boolean, ByVal FolderId As Integer) As String

/**/
''' -----------------------------------------------------------------------------
''' <summary>
''' 增加一个文件
''' </summary>
''' <param name="PortalId">门户Id</param>
''' <param name="inStream">要怎讲的文件流</param>
''' <param name="contentType">文件类型</param>
''' <param name="length">内容长度</param>
''' <param name="folderName">文件夹名称</param>
''' <param name="closeInputStream">指示是否关闭输入流的标识</param>
''' <param name="ClearCache">指示是否清文件缓存</param>
''' <remarks>该方法会加入一个文件
''' </remarks>
''' <history>
''' [cnurse] 04/26/2006 Created
''' </history>
''' -----------------------------------------------------------------------------
Private
Shared
Function AddFile()
Function AddFile(ByVal PortalId As Integer, ByVal inStream As Stream, ByVal fileName As String, ByVal contentType As String, ByVal length As Long, ByVal folderName As String, ByVal closeInputStream As Boolean, ByVal clearCache As Boolean, ByVal synchronize As Boolean) As String
/**/
''' -----------------------------------------------------------------------------
''' <summary>
''' 增加一个文件夹
''' </summary>
''' <param name="PortalId">门户Id</param>
''' <param name="relativePath">文件夹相对路径</param>
''' <param name="StorageLocation">
文件存储的位置,分为安全文件系统,不安全文件系统,安全数据库
</param>
''' <history>
''' [cnurse] 04/26/2006 Created
''' </history>
''' -----------------------------------------------------------------------------
Private
Shared
Function AddFolder()
Function AddFolder(ByVal PortalId As Integer, ByVal relativePath As String, ByVal StorageLocation As Integer) As Integer


/**/''' -----------------------------------------------------------------------------
''' <summary>
''' 尝试从文件系统中删除文件
''' </summary>
''' <param name="strFileName">文件名</param>
''' <history>
''' [cnurse] 04/26/2006 Created
''' </history>
''' -----------------------------------------------------------------------------

Private Shared Sub AttemptFileDeletion()Sub AttemptFileDeletion(ByVal strFileName As String)


/**/''' -----------------------------------------------------------------------------
''' <summary>
''' 检查文件名是否有效
''' </summary>
''' <param name="strFileName">文件名</param>
''' <remarks>这个检查的方法比较有意思,我还没仔细跟踪,没明白为什么这么做
''' </remarks>
''' <history>
''' [cnurse] 04/26/2006 Created
''' </history>
''' -----------------------------------------------------------------------------

Private Shared Function CheckValidFileName()Function CheckValidFileName(ByVal strFileName As String) As String
/**/
''' -----------------------------------------------------------------------------
''' <summary>
'''从文件路径中获取文件名
''' </summary>
''' <param name="filePath">文件全名</param>
''' <history>
''' [cnurse] 04/26/2006 Created
''' </history>
''' -----------------------------------------------------------------------------
Private
Shared
Function GetFileName()
Function GetFileName(ByVal filePath As String) As String


/**/''' <summary>
'''从文件对象中获取文件流
''' </summary>
''' <param name="
objFile
">文件对象</param>
''' <history>
''' [cnurse] 04/26/2006 Created
''' </history>
'''
-----------------------------------------------------------------------------

Private Shared Function GetFileStream()Function GetFileStream(ByVal objFile As DotNetNuke.Services.FileSystem.FileInfo) As Stream


/**/''' <summary>
'''移除孤立的文件夹
''' </summary>
''' <param name="PortalId">门户Id</param>
'''
-----------------------------------------------------------------------------

Public Shared Sub RemoveOrphanedFolders()Sub RemoveOrphanedFolders(ByVal PortalId As Integer)
转载于:https://www.cnblogs.com/GDLMO/archive/2008/01/06/1028222.html