true. The problem is that every access to a smbresource needs networktraffic. So, methods like exists, createfile, getting input- or outputstream can not be used easily.
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 IfSub 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 SubSub 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 SubSub 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
