[fr-users] Re: [INTERNET] Re: [fr-users] Re: Re: [fr-users] Savoir si un fichier est protégé par mot de passe

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 <jbfaure@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+unsubscribe@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