Hello,
I cannot unzip a zip file, I don't know why. It works with many other zip files but not this (zip file in attachment).
Can you help me please?
Thanks
I cannot unzip a zip file, I don't know why. It works with many other zip files but not this (zip file in attachment).
Can you help me please?
Thanks
import and unzip zip file:
Sub ButtonImporter_MouseClicked (EventData As MouseEvent)
Dim FC As FileChooser
FC.Initialize
FC.InitialDirectory = File.dirData("ALFANO SOFTWARE")' GetSystemProperty("user.dir","D:\")
FC.setExtensionFilter(".zip", Array As String("*.zip", "*.zip"))
FC.Title = CodeDivers.WordAndroidCSV(502) & " (.zip)"
Dim l As List
l=FC.ShowOpenMultiple(MainForm)
Dim chemin As String
Dim namefile As String
If l.IsInitialized=True Then
chemin=getFilePath(l.Get(0))
Log(chemin)
For i=0 To l.Size-1
namefile=getFileName(l.Get(i))
Log(namefile)
Dim ArchiverZip As Archiver
Private nom_du_zip As String
nom_du_zip=namefile
Private s1 As String
s1=namefile.Replace(".zip","")
File.MakeDir(File.dirData("ALFANO SOFTWARE"),s1)
ArchiverZip.UnZip(chemin,nom_du_zip , File.dirData("ALFANO SOFTWARE") & "\" & s1 ,"")
Next
End If
End Sub