[RESOLU] Compresser un dossier (répertoire)

[omega]

Bonsoir

Depuis plus de 2 heures en train d'essayer de compresser un dossier mais rien à faire. Où se trouve l'erreur SVP?

Merci

Code : Tout sélectionner

UseZipPacker()
 
dossier$ = GetCurrentDirectory()
 Dossier$ = PathRequester("Choisissez un dossier à compresser", dossier$)
 If Dossier$
    ;Récupérer le nom du dossier (sans chemin)
     For k=1 To CountString(dossier$,"\")
       NomDossier$=StringField(dossier$, k, "\")
     Next
        
     ZipFile$=NomDossier$+".zip"
     Debug ZipFile$
     
     ; Créer le fichier compressé
     If CreatePack(1, ZipFile$) 
  
    ; Ajouter vos fichiers 
     If ExamineDirectory(0, dossier$, "*.*")  
        While NextDirectoryEntry(0)
          If DirectoryEntryType(0) = #PB_DirectoryEntry_File
             File$=DirectoryEntryName(0)
             AddPackFile(1, file$,file$)  
          EndIf
        Wend
        FinishDirectory(0)
      EndIf
      ClosePack(1) 
  EndIf
  

[omega]

Je ne comprends pas pourquoi 2 fichers seulement sont compresssés dans le dossier alors qu'il y a plus de 20 fichiers dans le répertoire à compresser

[venom]

Un peut de modif et dépoussiérage

Code : Tout sélectionner

UseZipPacker()
 
dossier$ = GetCurrentDirectory()
 Dossier$ = PathRequester("Choisissez un dossier à compresser", dossier$)

   ;Récupérer le nom du dossier (sans chemin)
  NomDossier$ = Left(GetPathPart(Dossier$), Len(Dossier$)-1)

   ; Créer le fichier compressé
   If CreatePack(1, NomDossier$+".zip") 
  
    ; Ajouter vos fichiers 
     If ExamineDirectory(0, dossier$, "*.*")  
       While NextDirectoryEntry(0)
          If DirectoryEntryType(0) = #PB_DirectoryEntry_File
            File$=DirectoryEntryName(0)
            AddPackFile(1, dossier$+file$,file$)  ; ne pas oublier dans le 2eme parametre de renvoyer le chemin complet du fichier ;) Et dans le 3eme uniquement le nom du fichier
          EndIf
        Wend
        FinishDirectory(0)
      EndIf
      ClosePack(1) 
   EndIf 

@++

[omega]

Merci (c'est ^pourtant ce que je pensais) car cela s'explique: il vient de m'afficher 2 fichiers (debug après pack) et ces fichiers se trouvent au même niveau que le dossier à compresser et non pas DANS ce dossier

Merci encore venom

[venom]

De rien






@++