从文档库（专业版）中获取修改过的文档列表

Question

因此，我正在构建一个模块，我必须为内置文档库功能添加注释功能。我试图找到我从哪里提取文件。我也想要清单安全修剪。我真的希望有一个API，我不必建立一个手动的解决方案，打破文档库的更新...

任何帮助获取此信息的位置？

Answer 1

您可能可以使用DNN文件选取器控件，或重新使用它的某些逻辑。

源Codeplex上可用的代码具有用于用户和检索文件的文件夹的一个例子（用于用户）检索文件夹的示例：

http://dotnetnuke.codeplex.com/SourceControl/changeset/view/58672#612642

Private Sub LoadFolders() 
    cboFolders.Items.Clear() 

    'Add Personal Folder 
    If UsePersonalFolder Then 
     Dim userFolder As String = FileSystemUtils.GetUserFolderPath(UserController.GetCurrentUserInfo().UserID) 
     Dim userFolderItem As ListItem = cboFolders.Items.FindByValue(userFolder) 
     If userFolderItem IsNot Nothing Then 
      userFolderItem.Text = Utilities.GetLocalizedString("MyFolder") 
     Else 
      'Add Dummy Folder 
      cboFolders.Items.Add(New ListItem(Utilities.GetLocalizedString("MyFolder"), userFolder)) 
     End If 
    Else 
     Dim folders As ArrayList = FileSystemUtils.GetFoldersByUser(PortalId, ShowSecure, ShowDatabase, Permissions) 
     For Each folder As FolderInfo In folders 
      Dim folderItem As New ListItem 
      If folder.FolderPath = Null.NullString Then 
       folderItem.Text = Utilities.GetLocalizedString("PortalRoot") 
      Else 
       folderItem.Text = folder.DisplayPath 
      End If 
      folderItem.Value = folder.FolderPath 
      cboFolders.Items.Add(folderItem) 
     Next 
    End If 

End Sub 

和

Private Function GetFileList(ByVal NoneSpecified As Boolean, ByVal Folder As String) As ArrayList 
    Dim fileList As ArrayList 

    If IsHost Then 
     fileList = Globals.GetFileList(Null.NullInteger, FileFilter, NoneSpecified, cboFolders.SelectedItem.Value) 
    Else 
     fileList = Globals.GetFileList(PortalId, FileFilter, NoneSpecified, cboFolders.SelectedItem.Value) 
    End If 

    Return fileList 
End Function