PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 2024 → ZIp et chemein relatif ...
ZIp et chemein relatif ...
Iniciado por cezame.concept, 27,mar. 2006 13:42 - No hay respuesta
#1
Publicado el 27,marzo 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" !!
→ Volver a WINDEV 2024