Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ng
Salut,
Exemple d'un OCX avec source ici : http://www.babeuk.net/~ng/zip_vb.zip
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ "Ludovic SOEUR" a écrit dans le message de news: 229c01c3fc54$e0106890$ Je cherche du code VB pour décompresser des fichiers ZIP qui soit libre de droit.
Salut,
Exemple d'un OCX avec source ici : http://www.babeuk.net/~ng/zip_vb.zip
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
"Ludovic SOEUR" <Ludovic_SOEUR@hotmail.com> a écrit dans le message de news:
229c01c3fc54$e0106890$a401280a@phx.gbl...
Je cherche du code VB pour décompresser des fichiers ZIP
qui soit libre de droit.
Exemple d'un OCX avec source ici : http://www.babeuk.net/~ng/zip_vb.zip
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ "Ludovic SOEUR" a écrit dans le message de news: 229c01c3fc54$e0106890$ Je cherche du code VB pour décompresser des fichiers ZIP qui soit libre de droit.
Ludovic SOEUR
Merci ! C'est exactement ce que je cherchais.
J'ai essayé tout le module avec grand intérêt. Reste un petit problème : lorsque je veux créer un ZIP avec des sous-répertoires, il me conserve le chemion complet alors que je voudrais le chemin relatif par rapport à un rep donné (par ex : au lieu d'avoir "c:mesdocrep1sousrep1" pour tous les fichier, je voudrais simplement avoir "rep1 sousrep1"). J'ai essayé de modifier la propriété rootdirectory mais sans succès.
Sinon, pour les droits d'utilisation, suis-je obligé de mettre avec mon application la licence TXT fournie avec la DLL ?
merci beaucoup
Ludovic Soeur.
-----Message d'origine----- Salut,
Exemple d'un OCX avec source ici :
http://www.babeuk.net/~ng/zip_vb.zip
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ "Ludovic SOEUR" a écrit dans
le message de news:
229c01c3fc54$e0106890$ Je cherche du code VB pour décompresser des fichiers ZIP qui soit libre de droit.
.
Merci ! C'est exactement ce que je cherchais.
J'ai essayé tout le module avec grand intérêt. Reste un
petit problème : lorsque je veux créer un ZIP avec des
sous-répertoires, il me conserve le chemion complet alors
que je voudrais le chemin relatif par rapport à un rep
donné (par ex : au lieu d'avoir "c:mesdocrep1sousrep1"
pour tous les fichier, je voudrais simplement avoir "rep1
sousrep1"). J'ai essayé de modifier la propriété
rootdirectory mais sans succès.
Sinon, pour les droits d'utilisation, suis-je obligé de
mettre avec mon application la licence TXT fournie avec la
DLL ?
merci beaucoup
Ludovic Soeur.
-----Message d'origine-----
Salut,
Exemple d'un OCX avec source ici :
http://www.babeuk.net/~ng/zip_vb.zip
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
"Ludovic SOEUR" <Ludovic_SOEUR@hotmail.com> a écrit dans
le message de news:
229c01c3fc54$e0106890$a401280a@phx.gbl...
Je cherche du code VB pour décompresser des fichiers ZIP
qui soit libre de droit.
J'ai essayé tout le module avec grand intérêt. Reste un petit problème : lorsque je veux créer un ZIP avec des sous-répertoires, il me conserve le chemion complet alors que je voudrais le chemin relatif par rapport à un rep donné (par ex : au lieu d'avoir "c:mesdocrep1sousrep1" pour tous les fichier, je voudrais simplement avoir "rep1 sousrep1"). J'ai essayé de modifier la propriété rootdirectory mais sans succès.
Sinon, pour les droits d'utilisation, suis-je obligé de mettre avec mon application la licence TXT fournie avec la DLL ?
merci beaucoup
Ludovic Soeur.
-----Message d'origine----- Salut,
Exemple d'un OCX avec source ici :
http://www.babeuk.net/~ng/zip_vb.zip
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ "Ludovic SOEUR" a écrit dans
le message de news:
229c01c3fc54$e0106890$ Je cherche du code VB pour décompresser des fichiers ZIP qui soit libre de droit.
.
ng
Salut,
Pour ta qustion de chmin, je regardais plus tard, là il faut que je file :-)
Quelle licence TXT ?
Sinon n'oublie pas de fournir les DLL zip32 et unzip32
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ "Ludovic SOEUR" a écrit dans le message de news: 341a01c3fd46$56834f50$ Merci ! C'est exactement ce que je cherchais.
J'ai essayé tout le module avec grand intérêt. Reste un petit problème : lorsque je veux créer un ZIP avec des sous-répertoires, il me conserve le chemion complet alors que je voudrais le chemin relatif par rapport à un rep donné (par ex : au lieu d'avoir "c:mesdocrep1sousrep1" pour tous les fichier, je voudrais simplement avoir "rep1 sousrep1"). J'ai essayé de modifier la propriété rootdirectory mais sans succès.
Sinon, pour les droits d'utilisation, suis-je obligé de mettre avec mon application la licence TXT fournie avec la DLL ?
merci beaucoup
Ludovic Soeur.
-----Message d'origine----- Salut,
Exemple d'un OCX avec source ici :
http://www.babeuk.net/~ng/zip_vb.zip
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ "Ludovic SOEUR" a écrit dans
le message de news:
229c01c3fc54$e0106890$ Je cherche du code VB pour décompresser des fichiers ZIP qui soit libre de droit.
.
Salut,
Pour ta qustion de chmin, je regardais plus tard, là il faut que je file :-)
Quelle licence TXT ?
Sinon n'oublie pas de fournir les DLL zip32 et unzip32
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
"Ludovic SOEUR" <Ludovic_SOEUR@hotmail.com> a écrit dans le message de news:
341a01c3fd46$56834f50$a301280a@phx.gbl...
Merci ! C'est exactement ce que je cherchais.
J'ai essayé tout le module avec grand intérêt. Reste un
petit problème : lorsque je veux créer un ZIP avec des
sous-répertoires, il me conserve le chemion complet alors
que je voudrais le chemin relatif par rapport à un rep
donné (par ex : au lieu d'avoir "c:mesdocrep1sousrep1"
pour tous les fichier, je voudrais simplement avoir "rep1
sousrep1"). J'ai essayé de modifier la propriété
rootdirectory mais sans succès.
Sinon, pour les droits d'utilisation, suis-je obligé de
mettre avec mon application la licence TXT fournie avec la
DLL ?
merci beaucoup
Ludovic Soeur.
-----Message d'origine-----
Salut,
Exemple d'un OCX avec source ici :
http://www.babeuk.net/~ng/zip_vb.zip
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
"Ludovic SOEUR" <Ludovic_SOEUR@hotmail.com> a écrit dans
le message de news:
229c01c3fc54$e0106890$a401280a@phx.gbl...
Je cherche du code VB pour décompresser des fichiers ZIP
qui soit libre de droit.
Pour ta qustion de chmin, je regardais plus tard, là il faut que je file :-)
Quelle licence TXT ?
Sinon n'oublie pas de fournir les DLL zip32 et unzip32
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ "Ludovic SOEUR" a écrit dans le message de news: 341a01c3fd46$56834f50$ Merci ! C'est exactement ce que je cherchais.
J'ai essayé tout le module avec grand intérêt. Reste un petit problème : lorsque je veux créer un ZIP avec des sous-répertoires, il me conserve le chemion complet alors que je voudrais le chemin relatif par rapport à un rep donné (par ex : au lieu d'avoir "c:mesdocrep1sousrep1" pour tous les fichier, je voudrais simplement avoir "rep1 sousrep1"). J'ai essayé de modifier la propriété rootdirectory mais sans succès.
Sinon, pour les droits d'utilisation, suis-je obligé de mettre avec mon application la licence TXT fournie avec la DLL ?
merci beaucoup
Ludovic Soeur.
-----Message d'origine----- Salut,
Exemple d'un OCX avec source ici :
http://www.babeuk.net/~ng/zip_vb.zip
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ "Ludovic SOEUR" a écrit dans
le message de news:
229c01c3fc54$e0106890$ Je cherche du code VB pour décompresser des fichiers ZIP qui soit libre de droit.
.
ng
Re-Salut, Peut-on voir ton code ?
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
ng a écrit :
Salut,
Pour ta qustion de chmin, je regardais plus tard, là il faut que je file :-)
Quelle licence TXT ?
Sinon n'oublie pas de fournir les DLL zip32 et unzip32
-----Message d'origine----- Salut,
Exemple d'un OCX avec source ici :
http://www.babeuk.net/~ng/zip_vb.zip
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ "Ludovic SOEUR" a écrit dans
le message de news:
229c01c3fc54$e0106890$ Je cherche du code VB pour décompresser des fichiers ZIP qui soit libre de droit.
.
Re-Salut,
Peut-on voir ton code ?
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
ng <ng@babeuk.net> a écrit :
Salut,
Pour ta qustion de chmin, je regardais plus tard, là il faut que je
file :-)
Quelle licence TXT ?
Sinon n'oublie pas de fournir les DLL zip32 et unzip32
-----Message d'origine-----
Salut,
Exemple d'un OCX avec source ici :
http://www.babeuk.net/~ng/zip_vb.zip
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
"Ludovic SOEUR" <Ludovic_SOEUR@hotmail.com> a écrit dans
le message de news:
229c01c3fc54$e0106890$a401280a@phx.gbl...
Je cherche du code VB pour décompresser des fichiers ZIP
qui soit libre de droit.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
ng a écrit :
Salut,
Pour ta qustion de chmin, je regardais plus tard, là il faut que je file :-)
Quelle licence TXT ?
Sinon n'oublie pas de fournir les DLL zip32 et unzip32
-----Message d'origine----- Salut,
Exemple d'un OCX avec source ici :
http://www.babeuk.net/~ng/zip_vb.zip
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ "Ludovic SOEUR" a écrit dans
le message de news:
229c01c3fc54$e0106890$ Je cherche du code VB pour décompresser des fichiers ZIP qui soit libre de droit.
.
Ludovic SOEUR
Pour le licence.TXT, c'est expliqué à l'adresse http://www.info-zip.org/pub/infozip/license.html mais je ne suis pas sûr que ca veuille dire qu'il faut mettre le fichier TXT avec l'application. Pour le code d'essai avec les rép, j'ai utilisé le tiens pour être sur que ca ne venait pas de mon code à l'adresse : http://www.babeuk.net/~ng/zip_vb.zip. Pour l'essai, voila deux exemples qui ne marchent pas :
With oZip .ZipFileName = "C:EssaiMonZip.ZIP" .RecurseFolders = True '.RootDirectory = "C:DocsEssai" .RootDirectory = "C:DocsEssai" .AddFile "C:DocsEssai*.*" .AddFile "C:DocsTest.txt" If .Zip <> 0 Then MsgBox .GetLastMessage Error 2000 End If End With
With oZip .ZipFileName = "C:EssaiMonZip.ZIP" .AddFile "C:DocsEssai*.*" .AddFile "C:Textetest.txt" If .Zip <> 0 Then MsgBox .GetLastMessage Error 2000 End If End With
Merci beaucoup Ludovic S.
"ng" a écrit dans le message de news: e0uMB5t$
Re-Salut, Peut-on voir ton code ?
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
ng a écrit :
> Salut, > > Pour ta qustion de chmin, je regardais plus tard, là il faut que je > file :-) > > Quelle licence TXT ? > > Sinon n'oublie pas de fournir les DLL zip32 et unzip32 > > >> -----Message d'origine----- >> Salut, >> >> Exemple d'un OCX avec source ici : > http://www.babeuk.net/~ng/zip_vb.zip >> >> -- >> Nicolas G. >> FAQ VB : http://faq.vb.free.fr >> API Guide : http://www.allapi.net >> Google Groups : http://groups.google.fr/ >> MZ-Tools : http://www.mztools.com/ >> "Ludovic SOEUR" a écrit dans > le message de news: >> 229c01c3fc54$e0106890$ >> Je cherche du code VB pour décompresser des fichiers ZIP >> qui soit libre de droit. >> >> >> .
Pour le licence.TXT, c'est expliqué à l'adresse
http://www.info-zip.org/pub/infozip/license.html mais je ne suis pas sûr que
ca veuille dire qu'il faut mettre le fichier TXT avec l'application.
Pour le code d'essai avec les rép, j'ai utilisé le tiens pour être sur que
ca ne venait pas de mon code à l'adresse :
http://www.babeuk.net/~ng/zip_vb.zip.
Pour l'essai, voila deux exemples qui ne marchent pas :
With oZip
.ZipFileName = "C:EssaiMonZip.ZIP"
.RecurseFolders = True
'.RootDirectory = "C:DocsEssai"
.RootDirectory = "C:DocsEssai"
.AddFile "C:DocsEssai*.*"
.AddFile "C:DocsTest.txt"
If .Zip <> 0 Then
MsgBox .GetLastMessage
Error 2000
End If
End With
With oZip
.ZipFileName = "C:EssaiMonZip.ZIP"
.AddFile "C:DocsEssai*.*"
.AddFile "C:Textetest.txt"
If .Zip <> 0 Then
MsgBox .GetLastMessage
Error 2000
End If
End With
Merci beaucoup
Ludovic S.
"ng" <ng@babeuk.net> a écrit dans le message de news:
e0uMB5t$DHA.3184@TK2MSFTNGP09.phx.gbl...
Re-Salut,
Peut-on voir ton code ?
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
ng <ng@babeuk.net> a écrit :
> Salut,
>
> Pour ta qustion de chmin, je regardais plus tard, là il faut que je
> file :-)
>
> Quelle licence TXT ?
>
> Sinon n'oublie pas de fournir les DLL zip32 et unzip32
>
>
>> -----Message d'origine-----
>> Salut,
>>
>> Exemple d'un OCX avec source ici :
> http://www.babeuk.net/~ng/zip_vb.zip
>>
>> --
>> Nicolas G.
>> FAQ VB : http://faq.vb.free.fr
>> API Guide : http://www.allapi.net
>> Google Groups : http://groups.google.fr/
>> MZ-Tools : http://www.mztools.com/
>> "Ludovic SOEUR" <Ludovic_SOEUR@hotmail.com> a écrit dans
> le message de news:
>> 229c01c3fc54$e0106890$a401280a@phx.gbl...
>> Je cherche du code VB pour décompresser des fichiers ZIP
>> qui soit libre de droit.
>>
>>
>> .
Pour le licence.TXT, c'est expliqué à l'adresse http://www.info-zip.org/pub/infozip/license.html mais je ne suis pas sûr que ca veuille dire qu'il faut mettre le fichier TXT avec l'application. Pour le code d'essai avec les rép, j'ai utilisé le tiens pour être sur que ca ne venait pas de mon code à l'adresse : http://www.babeuk.net/~ng/zip_vb.zip. Pour l'essai, voila deux exemples qui ne marchent pas :
With oZip .ZipFileName = "C:EssaiMonZip.ZIP" .RecurseFolders = True '.RootDirectory = "C:DocsEssai" .RootDirectory = "C:DocsEssai" .AddFile "C:DocsEssai*.*" .AddFile "C:DocsTest.txt" If .Zip <> 0 Then MsgBox .GetLastMessage Error 2000 End If End With
With oZip .ZipFileName = "C:EssaiMonZip.ZIP" .AddFile "C:DocsEssai*.*" .AddFile "C:Textetest.txt" If .Zip <> 0 Then MsgBox .GetLastMessage Error 2000 End If End With
Merci beaucoup Ludovic S.
"ng" a écrit dans le message de news: e0uMB5t$
Re-Salut, Peut-on voir ton code ?
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
ng a écrit :
> Salut, > > Pour ta qustion de chmin, je regardais plus tard, là il faut que je > file :-) > > Quelle licence TXT ? > > Sinon n'oublie pas de fournir les DLL zip32 et unzip32 > > >> -----Message d'origine----- >> Salut, >> >> Exemple d'un OCX avec source ici : > http://www.babeuk.net/~ng/zip_vb.zip >> >> -- >> Nicolas G. >> FAQ VB : http://faq.vb.free.fr >> API Guide : http://www.allapi.net >> Google Groups : http://groups.google.fr/ >> MZ-Tools : http://www.mztools.com/ >> "Ludovic SOEUR" a écrit dans > le message de news: >> 229c01c3fc54$e0106890$ >> Je cherche du code VB pour décompresser des fichiers ZIP >> qui soit libre de droit. >> >> >> .
ng
Salut,
En effet rootdirectory designe la racine, on désigne donc les fihcier à ajouter en fonction de cette racine, on a donc :
With oZip .ZipFileName = "C:EssaiMonZip.ZIP" .RecurseFolders = True .RootDirectory = "C:DocsEssai" .AddFile "*.*" If .MakeZipFile <> 0 Then MsgBox .GetLastMessage Error 2000 End If End With
With oZip .ZipFileName = "C:EssaiMonZip.ZIP" .RecurseFolders = True .RootDirectory = "C:Docs .AddFile "Essai*.*" .AddFile "Test.txt" If .MakeZipFile <> 0 Then MsgBox .GetLastMessage Error 2000 End If End With
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Ludovic SOEUR a écrit :
Pour le licence.TXT, c'est expliqué à l'adresse http://www.info-zip.org/pub/infozip/license.html mais je ne suis pas sûr que ca veuille dire qu'il faut mettre le fichier TXT avec l'application. Pour le code d'essai avec les rép, j'ai utilisé le tiens pour être sur que ca ne venait pas de mon code à l'adresse : http://www.babeuk.net/~ng/zip_vb.zip. Pour l'essai, voila deux exemples qui ne marchent pas :
With oZip .ZipFileName = "C:EssaiMonZip.ZIP" .RecurseFolders = True '.RootDirectory = "C:DocsEssai" .RootDirectory = "C:DocsEssai" .AddFile "C:DocsEssai*.*" .AddFile "C:DocsTest.txt" If .Zip <> 0 Then MsgBox .GetLastMessage Error 2000 End If End With
With oZip .ZipFileName = "C:EssaiMonZip.ZIP" .AddFile "C:DocsEssai*.*" .AddFile "C:Textetest.txt" If .Zip <> 0 Then MsgBox .GetLastMessage Error 2000 End If End With
Merci beaucoup Ludovic S.
"ng" a écrit dans le message de news: e0uMB5t$
Re-Salut, Peut-on voir ton code ?
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
ng a écrit :
Salut,
Pour ta qustion de chmin, je regardais plus tard, là il faut que je file :-)
Quelle licence TXT ?
Sinon n'oublie pas de fournir les DLL zip32 et unzip32
-----Message d'origine----- Salut,
Exemple d'un OCX avec source ici :
http://www.babeuk.net/~ng/zip_vb.zip
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ "Ludovic SOEUR" a écrit dans
le message de news:
229c01c3fc54$e0106890$ Je cherche du code VB pour décompresser des fichiers ZIP qui soit libre de droit.
.
Salut,
En effet rootdirectory designe la racine, on désigne donc les fihcier à
ajouter en fonction de cette racine, on a donc :
With oZip
.ZipFileName = "C:EssaiMonZip.ZIP"
.RecurseFolders = True
.RootDirectory = "C:DocsEssai"
.AddFile "*.*"
If .MakeZipFile <> 0 Then
MsgBox .GetLastMessage
Error 2000
End If
End With
With oZip
.ZipFileName = "C:EssaiMonZip.ZIP"
.RecurseFolders = True
.RootDirectory = "C:Docs
.AddFile "Essai*.*"
.AddFile "Test.txt"
If .MakeZipFile <> 0 Then
MsgBox .GetLastMessage
Error 2000
End If
End With
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Ludovic SOEUR <Ludovic_SOEUR@hotmail.com> a écrit :
Pour le licence.TXT, c'est expliqué à l'adresse
http://www.info-zip.org/pub/infozip/license.html mais je ne suis pas
sûr que ca veuille dire qu'il faut mettre le fichier TXT avec
l'application.
Pour le code d'essai avec les rép, j'ai utilisé le tiens pour être
sur que ca ne venait pas de mon code à l'adresse :
http://www.babeuk.net/~ng/zip_vb.zip.
Pour l'essai, voila deux exemples qui ne marchent pas :
With oZip
.ZipFileName = "C:EssaiMonZip.ZIP"
.RecurseFolders = True
'.RootDirectory = "C:DocsEssai"
.RootDirectory = "C:DocsEssai"
.AddFile "C:DocsEssai*.*"
.AddFile "C:DocsTest.txt"
If .Zip <> 0 Then
MsgBox .GetLastMessage
Error 2000
End If
End With
With oZip
.ZipFileName = "C:EssaiMonZip.ZIP"
.AddFile "C:DocsEssai*.*"
.AddFile "C:Textetest.txt"
If .Zip <> 0 Then
MsgBox .GetLastMessage
Error 2000
End If
End With
Merci beaucoup
Ludovic S.
"ng" <ng@babeuk.net> a écrit dans le message de news:
e0uMB5t$DHA.3184@TK2MSFTNGP09.phx.gbl...
Re-Salut,
Peut-on voir ton code ?
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
ng <ng@babeuk.net> a écrit :
Salut,
Pour ta qustion de chmin, je regardais plus tard, là il faut que je
file :-)
Quelle licence TXT ?
Sinon n'oublie pas de fournir les DLL zip32 et unzip32
-----Message d'origine-----
Salut,
Exemple d'un OCX avec source ici :
http://www.babeuk.net/~ng/zip_vb.zip
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
"Ludovic SOEUR" <Ludovic_SOEUR@hotmail.com> a écrit dans
le message de news:
229c01c3fc54$e0106890$a401280a@phx.gbl...
Je cherche du code VB pour décompresser des fichiers ZIP
qui soit libre de droit.
En effet rootdirectory designe la racine, on désigne donc les fihcier à ajouter en fonction de cette racine, on a donc :
With oZip .ZipFileName = "C:EssaiMonZip.ZIP" .RecurseFolders = True .RootDirectory = "C:DocsEssai" .AddFile "*.*" If .MakeZipFile <> 0 Then MsgBox .GetLastMessage Error 2000 End If End With
With oZip .ZipFileName = "C:EssaiMonZip.ZIP" .RecurseFolders = True .RootDirectory = "C:Docs .AddFile "Essai*.*" .AddFile "Test.txt" If .MakeZipFile <> 0 Then MsgBox .GetLastMessage Error 2000 End If End With
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Ludovic SOEUR a écrit :
Pour le licence.TXT, c'est expliqué à l'adresse http://www.info-zip.org/pub/infozip/license.html mais je ne suis pas sûr que ca veuille dire qu'il faut mettre le fichier TXT avec l'application. Pour le code d'essai avec les rép, j'ai utilisé le tiens pour être sur que ca ne venait pas de mon code à l'adresse : http://www.babeuk.net/~ng/zip_vb.zip. Pour l'essai, voila deux exemples qui ne marchent pas :
With oZip .ZipFileName = "C:EssaiMonZip.ZIP" .RecurseFolders = True '.RootDirectory = "C:DocsEssai" .RootDirectory = "C:DocsEssai" .AddFile "C:DocsEssai*.*" .AddFile "C:DocsTest.txt" If .Zip <> 0 Then MsgBox .GetLastMessage Error 2000 End If End With
With oZip .ZipFileName = "C:EssaiMonZip.ZIP" .AddFile "C:DocsEssai*.*" .AddFile "C:Textetest.txt" If .Zip <> 0 Then MsgBox .GetLastMessage Error 2000 End If End With
Merci beaucoup Ludovic S.
"ng" a écrit dans le message de news: e0uMB5t$
Re-Salut, Peut-on voir ton code ?
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
ng a écrit :
Salut,
Pour ta qustion de chmin, je regardais plus tard, là il faut que je file :-)
Quelle licence TXT ?
Sinon n'oublie pas de fournir les DLL zip32 et unzip32
-----Message d'origine----- Salut,
Exemple d'un OCX avec source ici :
http://www.babeuk.net/~ng/zip_vb.zip
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ "Ludovic SOEUR" a écrit dans
le message de news:
229c01c3fc54$e0106890$ Je cherche du code VB pour décompresser des fichiers ZIP qui soit libre de droit.
