Sub SMB1_DownloadCompleted (Url As String, RemoteFile As String, Success As Boolean)
If Not(Success) Then
Log("Download failed : " & LastException)
Else
Log("Download : " & RemoteFile & " downloaded")
End If
End Sub
Sub SMB1_UploadCompleted (Url As String, RemoteFile As String, Success As Boolean)
If Not(Success) Then
Log("File " & RemoteFile & "Upload failed : " & LastException)
Else
Log("Upload : " & RemoteFile & " uploaded")
End If
End Sub
Sub SMB1_FreeSpaceCompleted (Url As String, RemoteFile As String, Size As Long, Success As Boolean)
If Not(Success) Then
Log("GetFreeSpace failed : " & LastException)
Else
Log("GetFreeSpace : " & Url & " " & NumberFormat2(Size, 1, 0, 0, True) & " bytes free")
End If
End Sub
Sub SMB1_MakeDirCompleted (Url As String, RemoteFile As String, Success As Boolean)
If Not(Success) Then
Log("MakeDir failed : " & LastException)
Else
Log("MakeDir : " & RemoteFile & " created")
End If
End Sub
Sub SMB1_CopyCompleted (DestUrl As String, DestRemoteFile As String, Success As Boolean)
If Not(Success) Then
Log("CopyFile failed : " & LastException)
Else
Log("CopyFile : " & DestRemoteFile & " copied")
End If
End Sub
Sub SMB1_DeleteCompleted (Url As String, RemoteFile As String, Success As Boolean)
If Not(Success) Then
Log("DeleteFile failed : " & LastException)
Else
Log("DeleteFile : " & RemoteFile & " deleted")
End If
End Sub
Sub SMB1_RenameCompleted (Url As String, DestRemoteFile As String, Success As Boolean)
If Not(Success) Then
Log("RenameFile failed : " & LastException)
Else
Log("RenameFile : " & DestRemoteFile & " renamed")
End If
End Sub