Sub cc_Result (Success As Boolean, Dir As String, FileName As String)
Log(Success & " " & Dir & " :" & FileName & ":")
If Success Then
' Dim j As HttpJob
Dim out As OutputStream
out.InitializeToBytesArray(0)
Dim In As InputStream = File.OpenInput(Dir, FileName)
File.Copy2(In, out)
Dim lastSlash As Int = FileName.LastIndexOf("/")
If lastSlash > -1 Then
FileName = FileName.SubString(lastSlash + 1)
End If
fichier = FileName
Dim su As StringUtils
Dim j As HttpJob
j.Initialize("file", Me)
link = link & spbox.SelectedItem & "/"
j.PostBytes(link & "?type=file&name=" & su.EncodeUrl(FileName, "UTF8"), _
out.ToBytesArray)
End If
End Sub