Bonjour,
Non, pour examiner le contenu d'un dossier zippé, il n'est pas
nécessaire de le décompresser.
Je me sers du code trouvé (comme tout ce que je fais sur les macros) de
l'excellent livre de Bernard Marcelly et Laurent Godard
Voici le code
function ChercheZip(URLzip As String, zipFolder As String, nomcherche as
string) as boolean
Dim ZipService As Object, ZipPackageFolder As Object
Dim ZipElement As Object, enuZ As Object, liste As String
ChercheZip =false
ZipService = CreateUnoService("com.sun.star.packages.Package")
ZipService.initialize(Array(URLzip))
if ZipService.hasByHierarchicalName(zipFolder) then
ZipPackageFolder = ZipService.getByHierarchicalName(zipFolder)
enuZ = ZipPackageFolder.createEnumeration
liste = ""
Do while enuZ.hasMoreElements
ZipElement = enuZ.nextElement
if
ZipElement.supportsService("com.sun.star.packages.PackageFolder") then
liste = liste & "Répertoire : " & ZipElement.Name & "/" & chr(13)
else
liste = liste & "Fichier : " & ZipElement.Name & chr(13)
end if
If ZipElement.Name = nomcherche then
ChercheZip = true
exit do
'msgbox nomcherche & " existe dans " & URLzip
'else
'msgbox zipfolder & " n'existe dans " & URLzip
endif
Loop
'MsgBox(liste, 0, "Répertoire " & urlzip)
'else
'MsgBox("Ce répertoire n'existe pas dans le zip", 16, "Répertoire " &
zipFolder)
end if
End function
Pour l'appeler
ChercheZip(fichier"","Thumbnails") pour la protection
ou
ChercheZip(fichier"","Basic") pour la détection de macros
avec fichier en notation url
Claude
-------- Message original --------
*Sujet: *[INTERNET] Re: [fr-users] Re: Re: [fr-users] Savoir si un
fichier est protégé par mot de passe
*De : *Jean-Baptiste Faure <jbfa...@libreoffice.org>
*Pour : *users@fr.libreoffice.org
*Date : *24/11/2017 18:14
Bonjour,
Le 24/11/2017 à 08:59, PREF31 Libreoffice a écrit :
Bonjour et merci
J'avais commencé en examinant les manifest.xml comme préconisé par
Jean-Baptiste que je remercie aussi. mais c'est un peu compliqué de
décompresser via une macro sous windows.
Par contre, chercher le dossier "Thumbnails" est très facile et ce
d'autant que je l'avais déjà avec le dossier "Basic" pour savoir si
les documents contiennent des macros.
Je ne comprends pas bien : chercher le dossier Thumbnails suppose
aussi de décompresser l'archive.
Bonne journée
JBF
--
Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés