B4J Question Help needed - ftp.list only listing top level directory. Client in B4J, Server in B4A

Sub Button1_Click
    DownloadFile("HiveInspections.db")
    'ListFiles("/Android/data/b4a.hives/files/pictures")
    'ListFiles("/")
    'ListFiles("/storage/emulated/0/Android/data/b4a.hives/files/pictures")
    'ListFiles("/data/b4a.hives/files/pictures")
    'ListFiles("/b4a.hives/files/pictures")
    'ListFiles("/files/pictures")
    'ListFiles("/storage/emulated/0/data/b4a.hives/files/pictures")
    'ListFiles("storage")
    'ListFiles("/storage")
    'ListFiles("/storage/emulated/0/")
    'ListFiles("reghrthdtyjjy")
    'ListFiles("")
    'ListFiles(".")
End Sub

Private Sub DownloadFile(filename As String)
    Dim ftp As FTP
    'ftp.Initialize("ftp","[server IP or url]",21,"[user]","[password]")
    ftp.Initialize("ftp","192.168.1.65",51041,"Test","test") '
    ftp.PassiveMode=True
    ftp.TimeoutMs=60000
    
    Dim sf As Object = ftp.DownloadFile("/Android/data/b4a.hives/files/database/"& filename,False,"D:\Data\Temp09",filename)
    Wait For (sf) ftp_DownloadCompleted (ServerPath As String, Success As Boolean)
    If Success Then
        Label1.Text = filename & " file was downloaded successfully"
    Else
        Label1.Text = "Error downloading file " & filename
    End If
    ftp.Close
End Sub

Dim sf As Object = ftp.ListFiles("/")
Wait For (sf) ftp_ListCompleted (ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
If Success Then
For Each f As FTPEntry In Folders
   Log(f)
 Next
 
 For Each f As FTPEntry In Files
   Log(f)
 Next
End If

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    
    Public timeout = 60000 As Int
    Public usr = "Test" As String
    Public pwd = "test" As String
    Private ftfIP = "192.168.1.65" As String
    Private ftfPort = 51041 As Int
    
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.Show
    Dim PagesManager As B4XPagesManager
    PagesManager.Initialize(MainForm)
    
    
    Dim Ftp As FTP
    Ftp.Initialize("ftp",ftfIP,ftfPort,usr,pwd) '
    Ftp.PassiveMode=True
    Ftp.TimeoutMs=timeout
    
    Dim sf As Object = Ftp.List("/")
    Wait For (sf) ftp_ListCompleted (ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
    Log(ServerPath)
    If Success Then
        For Each f As FTPEntry In Folders
            Log(f)
        Next
 
        For Each f As FTPEntry In Files
            Log(f)
        Next
    End If
    Ftp.Close
    
End Sub

ftp.SendCommand("CWD", "/Android")
Wait For ftp_CommandCompleted (Command As String, Success As Boolean, ReplyCode As Int, ReplyString As String)
If Success Then
 ftp.List("")
 Wait For ftp_ListCompleted (ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
 Log(Folders.Length)
 Log(Files.Length)
 For Each f As FTPEntry In Folders
    Log(f)
 Next
 For Each f As FTPEntry In Files
    Log(f)
 Next
End If

#Region Project Attributes
    #MainFormWidth: 600
    #MainFormHeight: 600
#End Region

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI
    Private Button1 As B4XView
    Private Label1 As Label
    Private ftfClientPath As B4XFloatTextField
    Private ftfServerPath As B4XFloatTextField
    Private ftfIP As B4XFloatTextField
    Private ftfPort As B4XFloatTextField
    Public timeout = 60000 As Int
    Public usr = "Test" As String
    Public pwd = "test" As String
    Private cbPictures As B4XView
    Private cbReports As B4XView
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout")
    MainForm.Show
    ftfClientPath.Text = "D:\Data\Temp09"
    ftfServerPath.Text = "/Android/data/b4a.hives/files/"
    ftfIP.Text = "192.168.1.65"
    ftfPort.Text = 51041
End Sub

Sub Button1_Click
    DownloadFile(ftfServerPath.Text & "database/", "HiveInspections.db", ftfClientPath.Text)
    
    If cbPictures.Checked Then
        Wait For (GetFiles(ftfServerPath.Text & "pictures/")) Complete (Complete As Object)
    End If
    '
    If cbReports.Checked Then
        Wait For (GetFiles(ftfServerPath.Text & "reports/")) Complete (Complete As Object)
    End If
    Log("*****************************************************************************")
End Sub

'DownloadFile (serverpath = Android path, filename = used both sides, clientpath = PC path)
Private Sub DownloadFile(serverpath As String, filename As String, clientpath As String)
    Dim Ftp As FTP
    'ftp.Initialize("ftp","[server IP or url]",21,"[user]","[password]")
    Ftp.Initialize("ftp",ftfIP.Text,ftfPort.Text,usr,pwd) '
    Ftp.PassiveMode=True
    Ftp.TimeoutMs=timeout
    Dim sf As Object = Ftp.DownloadFile(serverpath & filename,False,clientpath,filename)
    Wait For (sf) ftp_DownloadCompleted (serverpath As String, Success As Boolean)
    If Success Then
        Label1.Text = filename & " file was downloaded successfully"
    Else
        Label1.Text = "Error downloading file " & filename
    End If
    Ftp.Close
End Sub

'GetFiles (path = Android/Server path)
Sub GetFiles(path As String) As ResumableSub
    Dim Ftp As FTP
    'ftp.Initialize("ftp","[server IP or url]",21,"[user]","[password]")
    Ftp.Initialize("ftp",ftfIP.Text,ftfPort.Text,usr,pwd) '
    Ftp.PassiveMode=True
    Ftp.TimeoutMs=timeout
    Ftp.SendCommand("CWD", path)
    Wait For FTP_CommandCompleted(Command As String, Success As Boolean, ReplyCode As Int, ReplyString As String)
    If Success = False Then
        Log(LastException)
    Else
        Ftp.List("")
        Wait For ftp_ListCompleted(ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
        If Success = False Then
            Log(LastException)
        Else
            For i = 0 To Files.Length - 1
                Log(Files(i).Name)
                DownloadFile(path, Files(i).Name, ftfClientPath.Text)
            Next
        End If
    End If
    Ftp.Close
Return Null
End Sub

'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub