Sub SMBClient_Resource(success As Boolean, smbobjres As Object,smbobj As Object, info As String)
Log($"SMBClient_Resource(${success},${info},${smbobjres},${smbobj})"$)
If smbobjres <> Null And smbobj <> Null And info = "OK" Then
Dim smbResource As SMBResource = smbobjres
glRes = smbResource
Dim smbfile As SMBFile = smbobj
Dim smbResource As SMBResource = smbobjres
'File.WriteString(File.DirInternal, "1.txt", "Some text")
Log($"SMBClient_Resource(${smbResource}, ${smbfile})"$)
Log($"CanonicalPath = ${smbfile.CanonicalPath}"$)
Log($"CanonicalUncPath = ${smbfile.CanonicalUncPath}"$)
smbClient.Copy(smbfile,File.DirDefaultExternal,"configdoc.json")
End If
End Sub