[RESOLVED] Get a list of files using SharePoint.Client

[cory_jackson]

I uploaded thousands of files for a client but some were not allowed and skipped. I want to determine those files now. I was hoping to write a simple app to get a list of all the files on the SharePoint site. However so far all the examples I've found online have been server side and I need to do it using Microsoft.SharePoint.Client in a WinForm program. Can anyone point me to a quick and dirty example online or maybe have a quick one to post here?

[Jenner]

Are you looking for all the files in a specific SharePoint Library or across the entire site?

[cory_jackson]

A specific library.

[cory_jackson]

I found a PowerShell script but it needs a SP plugin that I can't seem to get to install.

[cory_jackson]

I discovered I can map a network drive to a SP library. I'll use my SizeExplorer Pro program to generate a list from there. Thanks.

[Jenner]

Here you go, try this:

    Public Function GetFiles(folderUri As Uri) As List(Of String)
        Dim out As New List(Of String)

        Dim server As String = folderUri.AbsoluteUri.Replace(folderUri.AbsolutePath, "")
        Dim serverrelative As String = folderUri.AbsolutePath

        Dim clientContext As ClientContext = New ClientContext(server)
        Dim web As Web = clientContext.Web
        Dim folder As Folder = web.GetFolderByServerRelativeUrl(serverrelative)

        clientContext.Load(folder, Function(f2) f2.Files)
        clientContext.ExecuteQuery()

        For Each f As Microsoft.SharePoint.Client.File In folder.Files
            out.Add(f.Name)
        Next

        Return out
    End Function

[cory_jackson]

I think it will work but I'm getting an exception on the ExecuteQuery. 403, forbidden. So I'm thinking we need to add some credentials in here someplace?

[cory_jackson]

For the URI I used "https://[MyCompanyName].sharepoint.com/[SiteName]/"

[Jenner]

Add this line in there right after Dim clientContext....

 clientContext.Credentials = New Net.NetworkCredential("user", "password", "domain")

Of course, replace the user, password and domain strings with your information, or more securely, the information to a service account you can use to interact with the SharePoint site.

[cory_jackson]

Looks good but I don't know what the domain value should be. I tried to leave it blank and "MicrosoftAccount" but I'm still getting 403.

[Jenner]

I don't know. We run Sharepoint on a local server, we don't go through sharepoint.com. Typically, it's whatever the domain your computer is attached to on a typical, Windows Server network. Try what you use for [MyCompanyName].

Try using the URL of the actual library for the function, like: https://MyCompanyName.sharepoint.com/SiteName/LibraryName

[cory_jackson]

Still 403. I was working with one piece of code before that had this and I couldn't find an example anywhere online describing what I should put here. I found a utility called SPFileZilla that has a field for it but i just leave it blank.

[cory_jackson]

In SPFileZilla I have fields that mimic what we have here and I believe he's using the same library. So I entered a known good set from my client and it's still 403. But in the SPFileZilla there's a checkbox labeled "Is SharePoint Online". I wonder, is there another parameter I should be setting for SP on the web. I'll look into the ClientContext and see if I can find something like that.

[cory_jackson]

I found to be out on the Internet it needs to be SharePointOnlineCredentials. But it doesn't take a string for a password. I need to figure out how to use "Secure String".

[cory_jackson]

I worked out the credentials. Must use SharePointOnlineCredentials. Odd fellow. It seems one has to load it one character at a time. Like this:

Dim strPassword As String = "MyPassword"
For Each chrTemp As Char In strPassword
    ssPassword.AppendChar(chrTemp)
Next
'Then adding the password is...
clientContext.Credentials = New SharePointOnlineCredentials("[email protected]", ssPassword)

Now there are no exceptions but the list of string is empty. I'll work on that more in a bit.

[Jenner]

Ahh gotcha. Well, if you're not typing things in, you can use this:

    Public Function StringToSecure(str As String) As System.Security.SecureString
        Dim c() As Char = str.ToCharArray()
        Dim sec As New System.Security.SecureString
        For Each letter As Char In c
            sec.AppendChar(letter)
        Next
        Return sec
    End Function

[cory_jackson]

I think that's basically what I did. Maybe our messages passed in the ether.

Any ideas on the zero list items? What about making it recursive? IE sub-directories.