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 
				 
 
		 
 
		 
 
		 
 
		 
			 
			 
 
		 
 
		 
 
		 
 
		