Dézipper des fichiers

Question

Bonjour à tous,

J'ai récemment trouvé une fonction utilisant SharpLibZip permettant de décompresser des fichiers ZIP. Malheureusement, cette dernière ne prends pas en charge les fichiers possédant des accents (par exemple "Eté.png"), ce qui renvoie une exception.

Auriez-vous un moyen de dézipper totalement un fichier ZIP, sans que la fonction ne se bloque si des accents sont présents ?

Merci,

natinusala

Calade · Answer

Bonjour,

As-tu essayé à la sélection du nom de fichier de le renommer en virant tous les accents (une dizaine de Replace() fait l'affaire).

A condition que tu puisses le renommer "light".


Calade

4u4me4us · Answer

J'ai déjà fais cela il y a un bout de temps. aussi pour désipé j'utilise la fonction suivante, ajoute la ref shell a ton projet (v_xrDec = fichier.zip et v_nfCom = nom que doit avoir le ficher après)
 
Public Function EXTRA(v_xrDec As String, v_nfCom As String) As Boolean
  Dim osa As Shell
  Dim nbFic As Single
  On Error GoTo faute
  Set osa = New Shell
  ' Nombre de fichiers à extraire
  nbFic = osa.NameSpace(v_xrDec).Items.Count
  ' Décompression des fichiers
  osa.NameSpace(v_nfCom).CopyHere osa.NameSpace(v_xrDec).Items
  TEMPO 2
  Set osa = Nothing
  EXTRA = True
  Exit Function
faute:
    TEMPO 4
    Set osa = Nothing
    EXTRA = False
End Function

Dézipper des fichiers

2 réponses

Votre réponse

Discussions similaires