Как я могу перечислить объекты из s3 в datagridview, используя VB. net? - PullRequest
Новая
       25

Как я могу перечислить объекты из s3 в datagridview, используя VB. net?

0 голосов
/ 27 марта 2020

Как я могу перечислить объекты из s3 в datagridview, используя VB. net?

Как и в виде дерева, имя корзины, затем список объектов корзины, имя папки корзины, затем список объектов папки, имя подпапки, затем объекты

Я нашел какой-то код с этого сайта. Но я не знаю, как его реализовать. 

Public Function ListingFiles(bucketName As String, Optional foldername As String = "/") As ObservableCollection(Of String)

    Dim obsv As New ObservableCollection(Of String)

    Dim delimiter As String = "/"
    If Not foldername.EndsWith(delimiter) Then
        foldername = String.Format( foldername + delimiter)
    End If

    Try
        Try
            Dim request As New ListObjectsRequest() With {.BucketName = bucketName}

            Do
                Dim response As ListObjectsResponse = s3Client.ListObjects(request)
                For i As Integer = 1 To response.S3Objects.Count - 1
                    Dim entry As S3Object = response.S3Objects(i)
                    If Not foldername = "/" Then
                        If entry.Key.ToString.StartsWith(foldername) Then
                            Dim replacementstring As String = Replace(entry.Key, foldername, "")
                            If Not replacementstring = "" Then
                                obsv.Add(replacementstring)
                            End If
                        End If
                    Else
                        obsv.Add(Replace(entry.Key, foldername, ""))
                    End If
                Next
                If (response.IsTruncated) Then
                    request.Marker = response.NextMarker
                Else
                    request = Nothing
                End If
            Loop Until IsNothing(request)
        Catch ex As AmazonS3Exception

        End Try
    Catch ex As Exception

    End Try
    Return obsv
End Function
...