Discussion :

[JuBoKat]

Tout d'abord bien le Bonjour ,

Voila j'explique mon problème, je suis quasi-debutant en VBS ( ).
Mon but est de creer un script triant les fichiers word et excel d'un repertoire (ça je sais à peu pres faire) Mais le hic c'est qu'il doit les classer par Metadonnées, et plus precisement par le Modele utilisé (Ex pour Word => .Dot).

Je sais deja qu'il faut faire appel au sdofile.dll que j'ai telecharger, mais je sais pas du tout comment l'appeler dans un script, j'ai eu beau chercher des tutos, post et autres sur l'appel de cette derniere mais sans resultat.

C'est pourquoi je fait appel à vous autres pour simplement m'orienter sur la demarche a suivre .

Je vous remercie d'avance ^^

[ced600]

Je n'ai pas compris le type de trie que tu veux faire, pourrais tu me l'expliquer ?

[JuBoKat]

Bah j'aimerais que mon script affiche une liste avec le nom du fichier word ou excel ainsi que son modele utilisé

[ced600]

qu'est ce que tu appelles son modèle ?

[JuBoKat]

Eh bien c'est la metadonnées Modele. (visible lors d'un proprietes/resumé/avancé sur un document Word ou Excel). Elle possede l'extension .dot pour word, et generalement lorsqu'on ouvre une nouvelle page vierge le modele par defaut sera Normal.Dot. Je sais pas si j'ai reussi a me faire comprendre : /

[ced600]

merci pour l'explication c'est plus clair pour moi maintenant (sauf que je n'ai pas vu le modèle en question dans propriété/résumé/avancé, peut être parce que nous ne sommes pas sous le même SE, moi je suis sous Win XP2)
J'ai ça qui pourra peut être t'aider :
http://www.activexperts.com/activmon...rFileProps.htm

[omen999]

extraire le nom du modèle sTemplate doit donner à peu près ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
set oDocProps=createobject(DSOFile.OleDocumentProperties)
... (ouverture du fichier avec la méthode open)
set oSummProps=oDocsProps.SummaryProperties
sTemplate=oSummProps.Template

il faut regarder l'exemple vb6 fourni avec le contrôle
la seule grosse différence avec vb6 c'est que vbs instancie toujours en 'late binding'
c'est à dire: set objet=createobject(DSOFile.OleDocumentProperties) au lieu de set objet=new DSOFile.OleDocumentProperties

[JuBoKat]

Merci à vous pour votre aide je teste de suite

[JuBoKat]

Pour faire plus simple voila mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Path=inputbox("Entrez le chemin du repertoire a Analyser","Analyse JLW")
MsgBox ShowFolderList(Path),,"Liste des fichiers du répertoire """ & Path 
 
Function ShowFolderList(strPath)
 
 
Dim fso, Dossiers, fic, fichiers, strListe, f, r 
Dim Valeur, imax, z, Cible, liste 
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Dossiers = fso.GetFolder(Path)
    Set fic = Dossiers.Files
 
    imax = 0
 
    For Each fichiers In fic
        Set f = fso.GetFile(fichiers)
        imax = imax + 1
        ReDim Preserve Tableau(2, imax)
        Tableau(1, imax) = f.Name
        Tableau(2, imax) = f.Type
 
        Valeur = 0
        For imax = 1 To imax - 1
 
               For z = 1 To 2
                   Cible = Tableau(z, imax)
                   Tableau(z, imax) = Tableau(z, imax + 1)
                   Tableau(z, imax + 1) = Cible
               Next
               Valeur = 1
 
        Next
    Next
 
    For r = 1 To imax
        liste = liste & vbCrLf & r & "       	 " & Tableau(1, r) & "		" & Tableau(2, r)
    Next
    liste = vbCrLf& "N°             Nom du fichier		Type" &vbCrLf& liste    
    ShowFolderList = liste
 
Set Ftxt = FSO.createTextFile("\\repertoire\liste.txt",true)
Ftxt.writeline (liste)
Ftxt.Close
End Function

Et dans ce code il faut que je puisse manipuler le sdofile.dll afin d'extraire les metadonnées des fichiers Word et Excel et les afficher