(VB.NET) Bunny Edge Storage - List Files

See more Bunny CDN Examples

Retrieve a list of files and directories located in the given directory.

For more information, see https://docs.bunny.net/reference/get_-storagezonename-path-

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim http As New Chilkat.Http
Dim success As Boolean

' Use the "Password" from the "FTP & HTTP API Access" console web page for your Bunny storage zone.
http.SetRequestHeader("AccessKey","YOUR_FTP_AND_HTTP_PASSWORD")

' Storage Endpoints:
' The storage API endpoint depends on the primary storage region of your storage zone. You can also find this in the FTP & HTTP API Information of your storage zone.

' Falkenstein: storage.bunnycdn.com
' New York: ny.storage.bunnycdn.com
' Los Angeles: la.storage.bunnycdn.com
' Singapore: sg.storage.bunnycdn.com
' Sydney: syd.storage.bunnycdn.com
' London: uk.storage.bunnycdn.com
' ... (possibly others??)

Dim sbResponse As New Chilkat.StringBuilder

' Change the "storageZoneName" to your actual storage zone name.
success = http.QuickGetSb("https://uk.storage.bunnycdn.com/storageZoneName/testDir/",sbResponse)
If (success = False) Then
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


Dim statusCode As Integer = http.LastStatus
Debug.WriteLine("Status code = " & statusCode)

If (statusCode <> 200) Then
    Debug.WriteLine(sbResponse.GetAsString())
    Debug.WriteLine("Failed.")
    Exit Sub
End If


Dim jarr As New Chilkat.JsonArray
jarr.LoadSb(sbResponse)
jarr.EmitCompact = False

Debug.WriteLine(jarr.Emit())

' Here is a sample response.  Parsing code is shown below..

' [
'   {
'     "Guid": "ebd9ccff-faf7-449d-9c71-8662b9f3cf41",
'     "StorageZoneName": "chilkat",
'     "Path": "/chilkat/testDir/",
'     "ObjectName": "seahorse.jpg",
'     "Length": 24388,
'     "LastChanged": "2023-04-21T15:59:08.382",
'     "ServerId": 586,
'     "ArrayNumber": 0,
'     "IsDirectory": false,
'     "UserId": "6d26ab35-2914-422c-9378-d51f38166e53",
'     "ContentType": "",
'     "DateCreated": "2023-04-21T15:59:08.382",
'     "StorageZoneId": 266805,
'     "Checksum": "0503558E7B4D141C067BEECFD06F87F6F58B81E37918310F82C7C4077D27BD1D",
'     "ReplicatedZones": "SE,DE,LA,SG,JH,BR,SYD,NY"
'   },
'   {
'     "Guid": "e74b85f8-4d5d-459e-a2fc-0fcfa8c926aa",
'     "StorageZoneName": "chilkat",
'     "Path": "/chilkat/testDir/",
'     "ObjectName": "seal.jpg",
'     "Length": 342708,
'     "LastChanged": "2023-04-21T15:59:08.763",
'     "ServerId": 586,
'     "ArrayNumber": 2,
'     "IsDirectory": false,
'     "UserId": "6d26ab35-2914-422c-9378-d51f38166e53",
'     "ContentType": "",
'     "DateCreated": "2023-04-21T15:59:08.763",
'     "StorageZoneId": 266805,
'     "Checksum": "C95F946A0299CE39C20A072B3DC581446B2EE2D94CA93901B58604F4EFB8AAB5",
'     "ReplicatedZones": "DE,SE,SG,LA,JH,BR,SYD,NY"
'   },
'   {
'     "Guid": "ca80cdbd-c6cf-445d-b367-0b33de7ae65a",
'     "StorageZoneName": "chilkat",
'     "Path": "/chilkat/testDir/",
'     "ObjectName": "university.jpg",
'     "Length": 277581,
'     "LastChanged": "2023-04-21T15:59:10.142",
'     "ServerId": 586,
'     "ArrayNumber": 0,
'     "IsDirectory": false,
'     "UserId": "6d26ab35-2914-422c-9378-d51f38166e53",
'     "ContentType": "",
'     "DateCreated": "2023-04-21T15:59:10.142",
'     "StorageZoneId": 266805,
'     "Checksum": "96A10EAA1B778C066739A6233206022DB219B67A8775401D7865F40E6DD83571",
'     "ReplicatedZones": "DE,SE,SG,JH,BR,LA,SYD,NY"
'   }
' ]


' Use this online tool to generate parsing code from sample JSON: 
' Generate Parsing Code from JSON

Dim json As Chilkat.JsonObject
Dim Guid As String
Dim StorageZoneName As String
Dim Path As String
Dim ObjectName As String
Dim Length As Integer
Dim LastChanged As String
Dim ServerId As Integer
Dim ArrayNumber As Integer
Dim IsDirectory As Boolean
Dim UserId As String
Dim ContentType As String
Dim DateCreated As String
Dim StorageZoneId As Integer
Dim Checksum As String
Dim ReplicatedZones As String

Dim i As Integer = 0
Dim count_i As Integer = jarr.Size
While i < count_i
    json = jarr.ObjectAt(i)
    Guid = json.StringOf("Guid")
    StorageZoneName = json.StringOf("StorageZoneName")
    Path = json.StringOf("Path")
    ObjectName = json.StringOf("ObjectName")
    Length = json.IntOf("Length")
    LastChanged = json.StringOf("LastChanged")
    ServerId = json.IntOf("ServerId")
    ArrayNumber = json.IntOf("ArrayNumber")
    IsDirectory = json.BoolOf("IsDirectory")
    UserId = json.StringOf("UserId")
    ContentType = json.StringOf("ContentType")
    DateCreated = json.StringOf("DateCreated")
    StorageZoneId = json.IntOf("StorageZoneId")
    Checksum = json.StringOf("Checksum")
    ReplicatedZones = json.StringOf("ReplicatedZones")

    i = i + 1
End While