Modification des propriétés des fichiersRésolu

Question

Bonjour à tous, 

voilà quelques jours que je galère...

je souhaiterais modifier les propriétés de plusieurs fichiers pour leur donner à tous la même valeur dans le champs 'catégorie' par ex. qu'un fichier parent .

j'ai trouvé un bon point de départ http://www.vbfrance.com/code.aspx?ID=40819

mais cette classe ne comportez rien qui me permette de remplacer les propriétés des fichiers...

Si quelqu'un à une idée, je l'en remercie d'avance

jmfmarques · Accepted Answer

Qu'entends-tu exactement par celà ?
Donner à tous les fichiers (différents entre eux) toutes les mêmes propriétés ?

aldec · Answer

oui, en fait je fait une recherche dans plusieurs répertoires et sur base du nom du fichier parent (un fichier .doc ), je veux que tous les fichiers ( .dwg, .pdf, .xls, .txt, etc...)des répertoires fils dons une partie du nom est identique reçoivent les mêmes propriétés catégorie et objet que le fichier parent.

jmfmarques · Answer

Tu devrais aller faire un petit tour dans l'explorateur, cliquer du bouton droit sur un fichier de ton choix, choisir "propriétés" et voir...
Puis revenir ici et nous dire avec précision celles que tu souhaites modifier (toutes ne sont pas modifiables)

aldec · Answer

les propriétés  suivantes :

Titre
Objet (Sujet)
Auteur
Catégorie
Commentaires

aldec · Answer

Bon je relance le débat....

j'ai trouvé un code trés short pour lire les propriétés de tous types de fichiers, 

Dim arrHeaders(41)

Set objshell = CreateObject("Shell.Application")
Set objfolder = objshell.NameSpace("C:	mp") 'répertoire de travail
For i = 0 To 40
    arrHeaders(i) = objfolder.GetDetailsOf(objfolder.Items, i)
Next
For Each strFileName In objfolder.Items
    For i = 0 To 40
        MsgBox i & vbTab & arrHeaders(i) & ": " & objfolder.GetDetailsOf(strFileName, i) 'toutes les propriétés du fichier strFileName
    Next
Next

End Sub


mais existe t-il une méthode similaire à GetDetailsOf qui permette d'écrire les propriétés ? Comment marche le code qui permet de modifier les ID3 des fichiers MP3 ?

aldec · Answer

Ne dit-on pas...Qui cherche trouve....

Bien voilà, en gros il y a 3 systèmes différents pour le stockage des propriétés des fichiers.
Elle diffère selon le type de fichier.

-Pour les fichiers dits "Office" ( xls,doc,ppt, etc...) il faut passer par une méthode standard en VBA et disponibles pour toutes les propriétés : 

Text = ActiveDocument.BuiltInDocumentProperties(1).Valueen lecture     [ (1) à (24) ]

ActiveDocument.BuiltInDocumentProperties(1) = Text  ou en écriture         [ (1) à (24) ]

-Pour tous les autres types de fichiers ( c-à-d sauf "Office" ) et sauf pour les ID3, j'ai trouvé un DLL ( malheureusement payante  mais qui fonctionne bien Desaware File Property Component - ActiveX DLL - V1.0 - 70?

Attention, elle ne fonctionne pas sous VBA, mais parfaitement sous VB6 et VB2005 et pour des disques en NTFS

- Pour les fichiers MP3, les informations ID3 sont stockées dans des champs de longueurs fixes en début du fichier. Je n'ai pas encore analysé le détail.

...bon c'était un peu un monologue ce post,  mais j'espère que les lecteurs anonymes y trouverons un quelconque intérêt

ShareVB · Answer

salut,

pour office et tous les autres fichiers : http://www.vbfrance.com/codes/LECTURE-MODIFICATION-PROPRIETES-FICHIERS-OFFICE-NTFS5_24534.aspx
pour les images : http://www.vbfrance.com/codes/LIRE-ECRIRE-METADONNEES-EXIF-IPTC-PNG-GIF-FORMAT_38909.aspx
pour les MP3 : http://www.vbfrance.com/codes/CLASS-POUR-LIRE-ENREGISTRER-TAGS-MP3-FORMAT-V1_6305.aspx ou "mp3" dans la recherche du site...

ShareVB

Modification des propriétés des fichiers

7 réponses

Votre réponse

Discussions similaires