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
Log($"SMBClient_Resource(${smbResource}, ${smbfile})"$)
Log($"CanonicalPath = ${smbfile.CanonicalPath}"$)
Log($"CanonicalUncPath = ${smbfile.CanonicalUncPath}"$)
'Dim flist As List = smbfile.listFiles
'Log($"ListFiles2(res,"*.tif")"$)
'jcifs.listFiles2(smbfile,"*.tif")
' cmbClient.GetResourcefromUrl("smb://192.168.192.168/SMBTest/")
' wait for SMBClient_Resource(smbobjres2 As Object,smbobj2 As Object)
' Log("GithubShare found...")
' github = smbobjres2
' Dim SMBTestOrdner As SMBFile = smbobj2
' Log($"${SMBTestOrdner.CanonicalPath}"$)
' Log($"ListFiles2(res)"$)
smbClient.listFiles(smbResource)
End If