cc.Show("application/vnd.openxmlformats-officedocument.spreadsheetml.sheet", "اختر ملف")
Wait For cc_Result (Success As Boolean, Dir As String, FileName As String)
Dim xui As XUI
If Success=True Then
Dim in As InputStream
in = File.OpenInput(Dir, FileName)
Dim out As OutputStream
out = File.OpenOutput(xui.DefaultFolder, "uploaded_file.xlsx", False)
File.Copy2(in, out)
in.Close
out.Close
Up.doFileUpload(Null,Null,xui.DefaultFolder & "/uploaded_file.xlsx","https://mywebsite.com/Delta/upload_file.php")
End If