IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Appeler sdofile.dll dans mon script


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Inscrit en
    Octobre 2006
    Messages
    15
    Détails du profil
    Informations forums :
    Inscription : Octobre 2006
    Messages : 15
    Par défaut Appeler sdofile.dll dans mon script
    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 ^^

  2. #2
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    Je n'ai pas compris le type de trie que tu veux faire, pourrais tu me l'expliquer ?

  3. #3
    Membre habitué
    Inscrit en
    Octobre 2006
    Messages
    15
    Détails du profil
    Informations forums :
    Inscription : Octobre 2006
    Messages : 15
    Par défaut
    Bah j'aimerais que mon script affiche une liste avec le nom du fichier word ou excel ainsi que son modele utilisé

  4. #4
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    qu'est ce que tu appelles son modèle ?

  5. #5
    Membre habitué
    Inscrit en
    Octobre 2006
    Messages
    15
    Détails du profil
    Informations forums :
    Inscription : Octobre 2006
    Messages : 15
    Par défaut
    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 : /

  6. #6
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    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

  7. #7
    Rédacteur
    Avatar de omen999
    Profil pro
    Inscrit en
    Février 2006
    Messages
    1 302
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 1 302
    Par défaut
    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
    nomen omen, nemo non omen - Consultez la FAQ VBScript et les cours et tutoriels VBScript
    le plus terrible lorsqu'une voiture renverse un piéton, c'est que ce sont les freins qui hurlent. (ramón)
    pas de questions techniques par mp

  8. #8
    Membre habitué
    Inscrit en
    Octobre 2006
    Messages
    15
    Détails du profil
    Informations forums :
    Inscription : Octobre 2006
    Messages : 15
    Par défaut
    Merci à vous pour votre aide je teste de suite

  9. #9
    Membre habitué
    Inscrit en
    Octobre 2006
    Messages
    15
    Détails du profil
    Informations forums :
    Inscription : Octobre 2006
    Messages : 15
    Par défaut
    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

Discussions similaires

  1. erreur dans mon script
    Par Swata dans le forum Langage
    Réponses: 4
    Dernier message: 21/09/2005, 00h02
  2. Réponses: 13
    Dernier message: 26/08/2005, 16h34
  3. importation d'un fonction d'une dll dans mon application
    Par jeannot27 dans le forum C++Builder
    Réponses: 7
    Dernier message: 11/07/2005, 15h35
  4. [langage]erreur dans mon script
    Par Fabouney dans le forum Langage
    Réponses: 11
    Dernier message: 30/06/2005, 14h58
  5. [] Utiliser AVI d'une DLL dans mon programme
    Par seb.49 dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 02/05/2003, 14h52

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo