Appeler sdofile.dll dans mon script

**JuBoKat** · 06/10/2006, 11h49

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** · 06/10/2006, 14h17

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

**JuBoKat** · 06/10/2006, 14h34

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

**ced600** · 06/10/2006, 14h45

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

**JuBoKat** · 06/10/2006, 14h49

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 : /

**JuBoKat** · 06/10/2006, 15h04

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

**ced600** · 06/10/2006, 15h06

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** · 06/10/2006, 15h09

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

Merci à vous pour votre aide je teste de suite

**JuBoKat** · 06/10/2006, 15h23

Bon je viens de changer mon code en rajoutant:

Code :

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

1
2
 
    Set DSO = CreateObject("DSOFile.OleDocumentProperties")

J'ai egalement rajouté dans mon tableau:

Code :

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

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 :

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

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

De plus je pense que

Code :

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

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

(Plus pret du dbutant que du Quasi ... ^^)

**omen999** · 06/10/2006, 15h42

je suis un Quasi-Debutant

nous le sommes tous à des degrés divers

pour ton erreur, c'est tout simple: tu n'as pas enregistré ton composant activex dans le base de registre

(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

**JuBoKat** · 06/10/2006, 16h18

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

Code :

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

regsvr32 [filepath]\dsofile.dll

pour l'installer.

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

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
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

, Mais bon si vous insister a me fournir le code + les explications cela ne me derange pas du tout

.

**ced600** · 06/10/2006, 17h22

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.

**JuBoKat** · 06/10/2006, 18h54

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.

**omen999** · 06/10/2006, 19h10

don't panic

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

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
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...

**JuBoKat** · 06/10/2006, 19h18

Merci Omen =), je vais tester sur mon pc et je vous quoi apres. En tout cas merci

**JuBoKat** · 06/10/2006, 19h30

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

**omen999** · 06/10/2006, 19h49

pas de quoi, entre invités il faut se serrer les coudes

**JuBoKat** · 16/10/2006, 09h52

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 :

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

"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.

**omen999** · 16/10/2006, 11h48

Envoyé par omen999

pour ton erreur, c'est tout simple: tu n'as pas enregistré ton composant activex dans le base de registre

(c'est rappelé dans le source de l'exemple)

même cause, même effet...

Appeler sdofile.dll dans mon script

VBScript

Discussions similaires

Partager

Partager