B4J Question Delete to Windows Recycle Bin

#AdditionalJar: jna-platform-5.8.0.jar
#AdditionalJar: jna-5.8.0.jar
Sub Process_Globals
   
End Sub

Sub AppStart (Args() As String)
    MoveToRecycleBin(Array("C:\Users\H\Downloads\Error.txt"))
End Sub

'File - one or more files to move to the recycle bin.
Private Sub MoveToRecycleBin (Files() As Object)
    Dim FileUtils As JavaObject
    FileUtils = FileUtils.InitializeStatic("com.sun.jna.platform.FileUtils").RunMethod("getInstance", Null)
    If FileUtils.RunMethod("hasTrash", Null) Then
        Dim JavaFiles(Files.Length) As Object
        For i = 0 To Files.Length - 1
            Dim jo As JavaObject
            jo.InitializeNewInstance("java.io.File", Array(Files(i)))
            JavaFiles(i) = jo
        Next
        Dim ArrayOfFiles As JavaObject
        ArrayOfFiles.InitializeArray("java.io.File", JavaFiles)
        FileUtils.RunMethod("moveToTrash", Array(ArrayOfFiles))
        Log("files moved to trash")
    Else
        Log("no trash")
    End If
End Sub

    Dim jo As JavaObject
    jo.InitializeNewInstance("java.io.File", Array(File.DirApp & "/dummy.txt"))
    Log("moving " & $"${jo.RunMethod("getCanonicalPath",Null)}"$ &" to recycle bin")
    Dim desktop As JavaObject
    desktop.InitializeStatic("java.awt.Desktop").RunMethodJO("getDesktop",Null).RunMethod("moveToTrash",Array(jo))

    Dim jo, desktop, action As JavaObject
    jo.InitializeNewInstance("java.io.File", Array(File.DirApp & "/dummy.txt"))
    
    action.InitializeStatic("java.awt.Desktop.Action")

    desktop = desktop.InitializeStatic("java.awt.Desktop").RunMethodJO("getDesktop",Null)

    If desktop.RunMethod("isSupported",Array(action.GetField("MOVE_TO_TRASH"))) Then
        Log("moving " & $"${jo.RunMethod("getCanonicalPath",Null)}"$ &" to recycle bin")
        desktop.RunMethod("moveToTrash",Array(jo))
    Else
        Log("deleting " & $"${jo.RunMethod("getCanonicalPath",Null)}"$ &"(No recycle bin)")
        File.Delete(File.DirApp,"/dummy.txt")
    End If