Appeler sdofile.dll dans mon script

Version imprimable

06/10/2006, 11h49
JuBoKat

Appeler sdofile.dll dans mon script

Tout d'abord bien le Bonjour :D ,

Voila j'explique mon problème, je suis quasi-debutant en VBS (:oops: ).
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 ^^
06/10/2006, 14h17
ced600

Je n'ai pas compris le type de trie que tu veux faire, pourrais tu me l'expliquer ?
06/10/2006, 14h34
JuBoKat

Bah j'aimerais que mon script affiche une liste avec le nom du fichier word ou excel ainsi que son modele utilisé :roll:
06/10/2006, 14h45
ced600

qu'est ce que tu appelles son modèle ?
06/10/2006, 14h49
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 : /

Pour faire plus simple voila mon code:

Code:

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

06/10/2006, 15h06
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
06/10/2006, 15h09
omen999
extraire le nom du modèle sTemplate doit donner à peu près ça:
Code:

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
06/10/2006, 15h14
JuBoKat

Merci à vous pour votre aide je teste de suite :D

Bon je viens de changer mon code en rajoutant:
Code:

1 2 Set DSO = CreateObject("DSOFile.OleDocumentProperties")
J'ai egalement rajouté dans mon tableau:
Code:

1 2 3 4 5 6 7 8 9 For Each fichiers In fic set oSummProps=oDocsProps.SummaryProperties sTemplate=oSummProps.Template Set f = fso.GetFile(fichiers) imax = imax + 1 ReDim Preserve Tableau(3, imax) Tableau(1, imax) = f.Name Tableau(2, imax) = f.Type Tableau(3, imax) = sTemplate
Et depuis ces modifs, au lancement du script il m'affiche le fameux message d'erreur:

Code:

Un composant ActiveX ne peut pas créer un objet.: 'DSOFILE.OleDocumentProperties'

De plus je pense que
Code:

1 2 set oSummProps=oDocsProps.SummaryProperties sTemplate=oSummProps.Template
Doit etre mal situé dans mon code .... : / mais comme citez plus haut je suis un Quasi-Debutant:mrgreen: (Plus pret du dbutant que du Quasi ... ^^)

06/10/2006, 15h42
omen999

Citation:

je suis un Quasi-Debutant :mrgreen:

nous le sommes tous à des degrés divers :P
pour ton erreur, c'est tout simple: tu n'as pas enregistré ton composant activex dans le base de registre :roll: (c'est rappelé dans le source de l'exemple)
pour le reste, ton code est...inquiétant
- pas d'ouverture du fichier avec la méthode .open
- mauvaise instanciation de l'objet oSummProps qui n'est pas cohérente avec ton objet initial DSO
prends le temps de lire attentivement le source joint avec le contrôle car c'est une initiation à la programmation objet

Mhhh c'est bisar, pourtant je suis bien passé par:

Code:

regsvr32 [filepath]\dsofile.dll

pour l'installer.

Et voila le code sans l'appel au sdofile.dll qui fonctionne tres bien pourtant :(

Code:

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
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 c'est dans ce code, que j'aimerais rajouter le Template du fichier et dans la suite logique du tableau ... mais effectivement je lutte un peu.

PS: Je ne desire pas une solution toute prefaite mais simplement qu'on m'explique comment procéder :aie: , Mais bon si vous insister a me fournir le code + les explications cela ne me derange pas du tout :mouarf: .

06/10/2006, 17h22
ced600

Bon je viens de trouver le modèle et l'aide que je t'ai donné ne sert ç rien, je viens de vérifier, il n'y a pas d'argument à l'objet CIM_DATAFILE permettant de connaître le modèle.
06/10/2006, 18h54
JuBoKat

Ok. Bah merci a vous 2 d'avoir consacré une partie de votre temps a mon probleme insolvable ;) . Je vais essayer par d'autre moyens.

See you.

don't panic :mrgreen:
je ne connaissais pas ce contrôle et je l'ai testé
j'en ai profité pour rectifier (le minimum) ton bourrin

Code:

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
46
47
48
49
50
51
52
53
54
55
56
57
Option Explicit
Dim Path,DSO
Set DSO = CreateObject("DSOFile.OleDocumentProperties")
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, Ftxt
Dim oSummProps
 
    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
 
        DSO.Open Path & "\" & f.Name, True 		'ouverture fichier en ro
        If DSO.IsOleFile Then
        	Set oSummProps=DSO.SummaryProperties 	'récupération des propriétés
        	Tableau(0, imax) = oSummProps.Template 	'bingo...
        Else
        	Tableau(0, imax) = "néant"
	End If
        DSO.Close
 
        Valeur = 0
        For imax = 1 To imax - 1
 
               For z = 0 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) & "        " & Tableau(0, r) 
    Next
    liste = vbCrLf& "N°             Nom du fichier		Type       Modèle" &vbCrLf& liste    
    ShowFolderList = liste
 
Set Ftxt = FSO.createTextFile(".\repertoire\liste.txt",true)
Ftxt.writeline (liste)
Ftxt.Close
End Function

attention j'ai modifié le répertoire de ton fichier liste.txt
l'accès à des documents créés par openoffice enregistrés au format word provoque une erreur...:mouarf:

06/10/2006, 19h18
JuBoKat

Merci Omen =), je vais tester sur mon pc et je vous quoi apres. En tout cas merci :mrgreen:
06/10/2006, 19h30
JuBoKat

Super je viens de tester :), un grand merci a vous 2 Omen et Cedric, En plus grace a vous j'ai pu apprendre quelques petites choses en plus ce qui fait de moi un Quasi-Debutant +1 :p. Allez See you :mrgreen:
06/10/2006, 19h49
omen999

pas de quoi, entre invités il faut se serrer les coudes :mrgreen:
16/10/2006, 09h52
JuBoKat

Voila désolé de réouvrir ce topique mais j'ai quelques soucis avec mon script :( .
En effet, il a fonctionné chez moi sur mon os qui est un XP et quand j'ai voulu le tester au bureau (NT), il m'affiche le message d'erreur:

Code:

"Un composant ActiveX ne peut pas créer un objet: ...."

Je rappel que j'utilise la dsofile ^^ et que ce script fonctionnait tres bien avant.
Merci pour vos futurs reponses.:)
16/10/2006, 11h48
omen999

Citation:

Envoyé par omen999

pour ton erreur, c'est tout simple: tu n'as pas enregistré ton composant activex dans le base de registre :roll: (c'est rappelé dans le source de l'exemple)

même cause, même effet...:roll:
16/10/2006, 12h02
JuBoKat

On prend les memes et on recommence :). Bonjour Omen. Hmmm j'ai pourtant bien enregistré la dll ...., le code est identique qu'auparavant mais le résultat moins malheureusement ...
16/10/2006, 12h16
omen999

lu sur le site de téléchargement de dsofile :mrgreen: :

"Supported Operating Systems: Windows 2000; Windows ME; Windows XP"

solution upgrade nt -> xp
16/10/2006, 12h26
JuBoKat

Lol xD, Bon ok la c'est de ma faute mais je viens de tester sur un Windows 2000 il m'affiche toujours le même message d'erreur : /.
(*petite voix dans la tête d'Omen : "Meuh non il est pas chiant ce Jubokat :mrgreen: "*)

C'est pourtant bien :

Code:

Set DSO = CreateObject("DSOFile.OleDocumentProperties")

et non "New DSOFile......" ?

Sinon tanpis derniere solution ramener mon Portable au bureau ^^. See you.
16/10/2006, 13h19
omen999

Citation:

petite voix dans la tête d'Omen

c'est vrai qu'il y a des moments où il faudrait mieux être sourd et aveugle 8-)

juste pour lever un doute, que donne un script qui ne contiendrait que la ligne:

Code:

Set DSO = CreateObject("DSOFile.OleDocumentProperties")

si l'erreur persiste, il faudrait faire une vérif avec un explorateur d'objets pour s'assurer du référencement du composant dans la bdr
16/10/2006, 13h23
JuBoKat

Lol, je sais mais pourtant je fais des efforts, j'ai envie de comprendre :).

Pour ce qui est du :

Code:

Set DSO = CreateObject("DSOFile.OleDocumentProperties")

seul

l'erreur persiste, je me remet donc a mon fidèle compagnon "Google" pour :

Citation:

un explorateur d'objets pour s'assurer du référencement du composant dans la bdr
16/10/2006, 14h31
omen999

http://www.oaklandsoftware.com/download_inspectors.html
16/10/2006, 14h47
JuBoKat

Hmmmm merci :aie: