(Visual Basic 6.0) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

Dim http As New ChilkatHttp
Dim success As Long

' 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 ChilkatStringBuilder

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

Dim statusCode As Long
statusCode = http.LastStatus
Debug.Print "Status code = " & statusCode

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

Dim jarr As New ChilkatJsonArray
success = jarr.LoadSb(sbResponse)
jarr.EmitCompact = 0

Debug.Print 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 ChilkatJsonObject
Dim Guid As String
Dim StorageZoneName As String
Dim Path As String
Dim ObjectName As String
Dim Length As Long
Dim LastChanged As String
Dim ServerId As Long
Dim ArrayNumber As Long
Dim IsDirectory As Long
Dim UserId As String
Dim ContentType As String
Dim DateCreated As String
Dim StorageZoneId As Long
Dim Checksum As String
Dim ReplicatedZones As String

Dim i As Long
i = 0
Dim count_i As Long
count_i = jarr.Size
Do While i < count_i
    Set 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
Loop