0

そのため、組み込みのドキュメントライブラリ機能にコメント機能を追加する必要があるモジュールを作成しています。ドキュメントをどこから取得するかを見つけようとしています。また、リストのセキュリティを調整したいと思います。私は本当にAPIがあることを望んでおり、ドキュメントライブラリの更新を中断する手動ソリューションを構築する必要はありません...

この情報をどこで入手するかについて何か助けはありますか？

4

1 に答える 1

0

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
于 2011-03-14T15:33:57.983 に答える