Sub StartUploading_medias
PahtsFilesOnServer.Add(OnlineFolder & "/" & Names.Get(PathsIndex))
FTP.UploadFile(Pahts.Get(PathsIndex), Names.Get(PathsIndex), True, OnlineFolder & "/" & Names.Get(PathsIndex))
End Sub
Sub FTP_UploadProgress (ServerPath As String, TotalUploaded As Long, Total As Long)
Dim s As String
s = "Uploaded " & Round(TotalUploaded / 1000) & "KB"
If Total > 0 Then s = s & " out of " & Round(Total / 1000) & "KB"
Log(s)
End Sub