Remplacement Xceedzip par fonction Windev

Fermé
tuning4ever Messages postés 544 Date d'inscription mardi 31 juillet 2007 Statut Membre Dernière intervention 22 février 2016 - Modifié par tuning4ever le 6/12/2010 à 10:30
Bonjour,

Je débute en Windev, je tiens à le souligner, alors si vous pouviez être indulgent envers mes éventuelles erreurs, qui peuvent paraître naïves à qui s'y connait mieux que moi ;)

J'ai un programme qui utilise des fonctions Xceedzip pour décompresser une archive et placer son contenu dans un autre dossier. Je dois remplacer ces quelques lignes de code(écrites sous windev 9) en utilisant cette fois la fonction ZIP de Windev.
Le code de base était celui-la (FicSel étant le fichier séléctionné):


ActiveXEvénement("GraphXceedZip",XCEEDZIP,"GlobalStatus")
XCEEDZIP>>FilesToProcess = ""
XCEEDZIP>>UnzipToFolder = imain:Chemindata
XCEEDZIP>>ZipFilename = FicSel
CodeRetour = XCEEDZIP>>Unzip()
SI CodeRetour <> 0
ALORS
Erreur ("Erreur pendant la décompression du fichier")
RETOUR
FIN

______________________________________________________________________

Pour modifier, j'ai mis ceci:


TestOuverture est un réel

TestOuverture = zipOuvre("ArchiveClient","P:\Veloce\Portefeuille\ " +FicSel)
Info(TestOuverture)
CodeRetour = zipExtraitTout("ArchiveClient",iMain:CheminData)
SI CodeRetour <> 0
ALORS
Erreur ("Erreur pendant la décompression du fichier")
RETOUR
FIN

______________________________________________________________________

Le probleme survient assez rapidement, puisque l'info TestOuverture me donne deja le chiffre 2!!! Et naturellement, le test plante droit apres

Serait-ce le "+FicSel" qui coince? Car si je met le nom exact de l'archive dans les guillemets sans mettre le "+FicSel", l'ouverture se passe bien (info = 0), mais la décompression ne se fait pas!

Et si, pour la destination du fichier extrait, je mets un répertoire exact au lieu de mettre "imain: Chemindata", il arrive a extraire, mais encore une fois je veux mon imain:Chemindata!

Vraisemblablement, j'ai pas le droit de le dire de cette facon(+FicSel et imain:Cheindata), mais les explications du bouquin de prog windev sont super-floues, rien n'est expliqué dans ce chapitre!!!

Quelqu'un aurait une idée?

Merci mille fois d'avance