Private const zipName As String = "tmp.zip"
Private out_tmp As String = File.Combine(File.DirInternal, "tmp_")
File.MakeDir("", out_tmp)
' -----------------------------------------------------------------------------
Private in As InputStream = File.OpenInput(Dir, FileName)
Private out As OutputStream = File.OpenOutput(out_tmp, zipName, False)
' -----------------------------------------------------------------------------
File.Copy2 (in, out)
' -----------------------------------------------------------------------------
in.Close
out.Flush
out.close
' -----------------------------------------------------------------------------
If File.Exists(out_tmp, zipName) Then
Private files_count As Int = arc.UnZip(out_tmp, zipName, out_tmp, "unzipping")
Log(files_count)
End If