「東雲 忠太郎」の平凡な日常のできごと

Imports System.Net.Http

Imports System.Text

Imports System.Threading.Tasks

    Sub Main()

        Dim siteUrl As String = "https://your-sharepoint-site-url"

        Dim username As String = "your-username"

        Dim password As String = "your-password"

        Dim listName As String = "NewList"

        CreateList(siteUrl, username, password, listName).Wait()

    End Sub

    Async Function CreateList(siteUrl As String, username As String, password As String, listName As String) As Task

        Dim credentials As String = Convert.ToBase64String(Encoding.ASCII.GetBytes($"{username}:{password}"))

        Using client As New HttpClient()

            client.DefaultRequestHeaders.Authorization = New System.Net.Http.Headers.AuthenticationHeaderValue("Basic", credentials)

            client.DefaultRequestHeaders.Accept.Add(New System.Net.Http.Headers.MediaTypeWithQualityHeaderValue("application/json"))

            Dim endpointUrl As String = $"{siteUrl}/_api/web/lists"

            Dim metadata As String = $"{{'__metadata': {{'type': 'SP.List'}},'AllowContentTypes': true,'BaseTemplate': 100,'ContentTypesEnabled': true,'Description': 'My Custom List','Title': '{listName}'}}"

            Dim content As New StringContent(metadata, Encoding.UTF8, "application/json")

            Dim response As HttpResponseMessage = Await client.PostAsync(endpointUrl, content)

            If response.IsSuccessStatusCode Then

                Console.WriteLine($"List '{listName}' created successfully.")

            Else

                Console.WriteLine($"Failed to create list. StatusCode: {response.StatusCode}")

            End If

        End Using

    End Function

End Module