PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

|
|
|
US
Home → WINDEV 2024 → ZIp et chemein relatif ...
ZIp et chemein relatif ...
Started by cezame.concept, Mar., 27 2006 1:42 PM - No answer
#1
Posted on March, 27 2006 - 1:42 PM
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" !!
→ Go back to WINDEV 2024