PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 2024 → ZIp et chemein relatif ...
ZIp et chemein relatif ...
Débuté par cezame, 27 mar. 2006 13:42 - Aucune réponse
#1
Posté le 27 mars 2006 - 13:42
Je souhaite simplement archiver un répertoire au format ZIP en incluant ses sous répertoires et mémoriser le chemin relatif ...

pour cela j'utilise le code suivant :

NomArchiveAGénérer est une chaîne

NomArchiveAGénérer = fSélecteur("", RacineArbre, "Enregistrer le dossier sous...", "Archive (zip)"+TAB+"*.ZIP", "*.ZIP", fselCrée+fselExiste)


SI NomArchiveAGénérer <> "" ALORS
Sablier(Vrai)
zipCrée("DossierGénéré",NomArchiveAGénérer)
zipAjouteRépertoire("DossierGénéré",DossierTemp,Vrai,zipRelatif)
Info("Création du dossier : "+NomArchiveAGénérer+" exécuté !")
zipFerme("DossierGénéré")
Sablier(Faux)
FIN

Avec ce code impossible d'ouvrir l'archive sous un programme style Winzip ... par contre cela fonctionne sous WDZip ... si j'enlève zipRelatif .. l'archive est crée mais sans les fichiers sous winzip !!!

Merci pour votre aide ... je n'ai jamais eu de soucis avant avec les zip au format "windev" !!
→ Revenir à WINDEV 2024