#AdditionalJar: slf4j-api-1.7.25.jar
#AdditionalJar: bctls-jdk15on-1.58.0.0.jar
#AdditionalJar: bcprov-jdk15on-1.59.jar
Sub Class_Globals
Public smbClient As SMBClient
Public glRes, github As SMBResource
End Sub
Private Sub BtnTrasmetti_Click
Dim cPathFileOut as string
Dim cPathOut as string
cPathFileOut=File.DirDefaultExternal
cPathOut= "ORDINE.OUT"
' dominio,Utente,Password,RisorsaPc_Condivisa
smbClient.Initialize("smbClient_Copy", "", "Utente","Password", "smb://192.168.1.17/c-drive/FTP/")
Wait For smbClient_Copy_Resource(success As Boolean, smbobjres As Object,smbobj As Object, info As String)
If smbobjres <> Null And smbobj <> Null And info = "OK" Then
Dim smbResource As SMBResource = smbobjres
smbClient.Copy2(cPathFileOut,cPathOut,smbResource, cPathOut)
Wait For smbclient_copy_copyresult(success As Boolean, path As String, filename As String)
'Wait For smbClient_Copy_Copy2Result(success As Boolean, path As String, filename As String)
If success = False Then
'bB = False
Log("ERRORE COPIA")
Else
Log("copia ok")
End If
Sleep(0)
End If
End Sub
Sub smbclient_copy_copyprogress(totalBytes As Long, path As String, filename As String)
Log($"SMBClient_CopyProgress(${totalBytes} : ${path}:${filename})"$)
End Sub
Sub SMBClient_CopyResult(success As Boolean, path As String, filename As String)
Log($"SMBClient_CopyResult(${success})"$)
Return success
End Sub