compression de fichiers

lundi 31 janvier 2011 04:45

0

Je veux compresser des fichiers à partir d'une application VFP9 en utilisant la fonction "Envoyer vers dossier compressé" de Windows XP, Vista ou Win 7 pour éviter d'avoir à installer un utilitaire sur l'ordinateur de mon client. Comment faire?

Toutes les réponses

lundi 31 janvier 2011 08:44

0

Bonjour,

Mike a écrit une contribution sur ce sujet il y a 5 ans!
Michel LEVY
lundi 31 janvier 2011 18:38

0

Pour tester la solution de Mike, il faut installer capicom.dll

J'ai donc téléchargé ce module et l'ai copié comme requis dans le répertoire system32.

Quand je viens pour l'enregistrer avec regsvr32, ça ne fonctionne pas.

N.B. je suis en Windows 7, 64 bits
mardi 8 février 2011 16:25

0

Bonjour,

Je ne sais pas si la solution de Mike requiert capicom.dll

par contre pour le regsvr32,

as tu un message d'erreur au lancement du regsevr32 ? du style "la dll n'a pas été enregistrée"

si oui:

d'une manière générale il faut le lancer sous windows 7 avec le droit administrateur,

le plus simple est de faire un petit fichier avec notepad, nommé avec extension .cmd

exemple "enreg.cmd" : dedans mettre "regsvr32 nom.dll"

et de cliquer droit -> executer en tant qu'administrateur

cordialement

Francis
VFP MVP
jeudi 10 février 2011 05:44

0

Le message est le même lorsque je le fais directement ou en tant qu'administrateur:

"Échec du chargement du module, bla.bla bla... le module spécifié est introuvable"

Voici la commande utilisée, après avoir copié capicom.dll dans le répertoire system32

regsvr32 c:\windows\system32\capicom.dll
jeudi 10 février 2011 11:55

0
Bonjour,

Je pense que tu fais une confusion...

le code source de Mike fonctionne en appelant le shell...

Il parle de Capicom pour le cryptage

As tu essayé l'exemple ?

Essais le code suivant tiré de son article :
```
lsFichierZip = "C:\temp\mon_fichier.zip"
lsFichierAcompresser = "c:\temp\test.txt"

IF FILE(m.lsFichierZip)
 ERASE (m.lsFichierZip)
endif
=strtofile(chr(0x50)+chr(0x4B)+chr(0x05)+chr(0x06)+replicate(chr(0),18), m.lsFichierZip, 0)
lo=CREATEOBJECT("shell.application")
lo.NameSpace(lsFichierZip).copyhere(m.lsFichierAcompresser)
```
Cordialement

Francis

VFP MVP
- Proposé comme réponse Michel Lévy jeudi 10 février 2011 13:59
- Marqué comme réponse VS-2008 vendredi 11 février 2011 05:53