Android Question jcifs-ng SMB-Client

    smbClient.GetResourcefromUrl("smb://192.168.192.168/GeoTIFs/") ' getting a reference to a resource where you want to create a new file.
    wait for SMBClient_Resource(success As Boolean, smbobjres As Object,smbobj As Object, info As String)
    Log($"writetest-SMBClient_Resource(${success},${info},${smbobjres},${smbobj})"$)
    If smbobjres <> Null And smbobj <> Null And info = "OK" Then
        Dim smbResource As SMBResource = smbobjres ' the resource object pointing to smb://192.168.192.168/GeoTIFs/
        Dim sfile As SMBFile = smbobj
        File.WriteString(File.DirInternal, "1.txt", "Some text") ' write what you want to write to a file in File.Dirinternal.
        smbClient.Copy2(File.DirInternal,"1.txt",sfile,"textfile.txt") ' Copy the file to the SMBFile reference (also pointing to smb://192.168.192.168/GeoTIFs/). The content of File.Dirinternal\1.txt is written to textfile.txt in the resource smb://192.168.192.168/GeoTIFs/
' in fact it is creating the resource smb://192.168.192.168/GeoTIFs/textfile.txt
    End If

Sub INspecbutton_Click

    CreateFile("smb://192.168.1.17/share/Test/", "1.txt", "Test")

End Sub

Sub CreateFile(Url As String, Fil As String, Txt As String)

    smbClient.GetResourcefromUrl(Url) ' getting a reference to a resource where you want to create a new file.

    'smbClient.GetResourcefromUrl("smb://192.168.192.168/GeoTIFs/") ' getting a reference to a resource where you want to create a new file.
    
    wait for SMBClient_Resource(success As Boolean, smbobjres As Object,smbobj As Object, info As String)
    Log($"writetest-SMBClient_Resource(${success},${info},${smbobjres},${smbobj})"$)
    
    If smbobjres <> Null And smbobj <> Null And info = "OK" Then
        Dim smbResource As SMBResource = smbobjres ' the resource object pointing to smb://192.168.192.168/GeoTIFs/
        Dim sfile As SMBFile = smbobj
        
        File.WriteString(File.DirInternal, Fil, Txt) ' write what you want to write to a file in File.Dirinternal.
        
        'File.WriteString(File.DirInternal, "1.txt", "Some text") ' write what you want to write to a file in File.Dirinternal.
        'smbClient.Copy2(File.DirInternal,"1.txt",sfile,"textfile.txt") ' Copy the file to the SMBFile reference (also pointing to smb://192.168.192.168/GeoTIFs/). The content of File.Dirinternal\1.txt is written to textfile.txt in the resource smb://192.168.192.168/GeoTIFs/
        ' in fact it is creating the resource smb://192.168.192.168/GeoTIFs/textfile.txt
    End If
    
End Sub

Sub btn_Init_Click
    Log($"Domain = ${edt_Domain.Text.Trim}"$)
    Log($"Username = ${edt_Username.Text.Trim}"$)
    Log($"Password = ${edt_Password.Text.Trim}"$)
    Log($"Share = ${edt_Share.Text.Trim}"$)
    
    
    Dim credentials As SMBCred
    credentials.Initialize
    credentials.Domain = edt_Domain.Text.Trim
    credentials.Username = edt_Username.Text.Trim
    credentials.Password = edt_Password.Text.Trim
    credentials.Share = edt_Share.Text.Trim
    
    CallSub2(Starter,"SMBInit",credentials)

End Sub

Sub SMBInit(cred As SMBCred)
    smbClient.Initialize("SMBClient",cred.Domain,cred.Username,cred.Password,cred.Share)
    smbClient.GetResourcefromUrl("smb://192.168.192.168/GeoTIFs/")
    wait for SMBClient_Resource(success As Boolean, smbobjres As Object,smbobj As Object, info As String)
    Log($"writetest-SMBClient_Resource(${success},${info},${smbobjres},${smbobj})"$)
    If smbobjres <> Null And smbobj <> Null And info = "OK" Then
        Dim smbResource As SMBResource = smbobjres
        Dim sfile As SMBFile = smbobj
        File.WriteString(File.DirInternal, "1.txt", "Some text")
        smbClient.Copy2(File.DirInternal,"1.txt",sfile,"textfile2.txt")
        wait for SMBClient_CopyResult(success As Boolean, path As String, filename As String)
        Log($"SMBClient_CopyResult(${success}, textfile2.txt written to ${sfile.UncPath})"$)
    End If
End Sub
Sub SMBClient_ResourceAvailable(smbResource As Object)
    Log($"SMBClient_ResourceAvailable(${smbResource})"$)
End Sub
Sub SMBClient_CopyProgress(totalBytes As Long, path As String, filename As String)
    Log($"SMBClient_CopyProgress(${totalBytes} : ${path}:${filename})"$)
End Sub