Sub unzip_domus(arcname As String)
Private InStream As InputStream
Private OutStream As OutputStream
Private path_archive As ExternalFile
' Notifie le status maintenance du serveur
Starter.maintenance=True
' Copie du ZIP dans DirInternal
OutStream=File.Openoutput(File.dirinternal, archive_name,False)
path_domusbup=Storage.FindDirOrCreate(Storage.Root,"domusbup")
path_archive=Storage.Findfile(path_domusbup,archive_name)
InStream=Storage.OpeninputStream(path_archive)
File.Copy2(InStream,OutStream)
Arc.UnZip(File.dirinternal,archive_name,File.dirrootexternal,"unzip")
File.Delete(File.DirInternal,archive_name)
End Sub