Solved

Summary info (Author, Subject, Company, Keywords, Category, ...) in Windows 2000 server and later. For ALL Type of files.

Posted on 2004-10-11
8
376 Views
Last Modified: 2010-04-12
Hi all,

I know DSOleFile is on the net and i use it for most of the files. But when I try to get the summary info for a pdf or even a xml file it gives me an error.!

Any idea or coding I could use to get the summary info of pdf files and xml files. Actually I'd like to have that for any type of file.

So if you can give me the right coding in C# or VB.net or something like that for summary info of .doc .xls .pdf .xml .vsd .jpg .tif .msg you get the points.

This is what I had. It works for most of the documents but not all :)

    Sub GetCProps()
        Dim oFilePropReader As DSOleFile.PropertyReader
        Dim oDocProp As DSOleFile.DocumentProperties

        Path = "c:\test\doc.pdf"

        Try
            oFilePropReader = New DSOleFile.PropertyReader
            oDocProp = oFilePropReader.GetDocumentProperties(path)
            MessageBox.Show("Author: " & oDocProp.Author & vbCrLf & "Title: " & oDocProp.Title & vbCrLf & "Subject: " & oDocProp.Subject)
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try

    End Sub

Good luck  :p
0
Comment
Question by:Alexdelen
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 4
8 Comments
 
LVL 76

Expert Comment

by:David Lee
ID: 12278385
DSOleFile is really intended for getting properties of MSOffice files, although Microsoft says it'll work for any OLE compound document when used on Windows 2000, and presumably later, with an NTFS file system.  Here's a link to a Microsoft Knowledgebase article that details that: http://support.microsoft.com/?kbid=224351.  There's another approach though that seems to work for any document.  Here's a link to a page that describes it:  http://www.microsoft.com/technet/community/scriptcenter/filefolder/scrff64.mspx  The code here is VBScript which should be simple enough to convert to straight VB.  I've tested this code with a variety of files including jpg, gif, html, etc. and it works for all of them.  I don't have a single pdf file that has any properties so I haven't been able to test it against this type of file.
0
 
LVL 1

Author Comment

by:Alexdelen
ID: 12284462
this link doesn't seem to work for me:  http://www.microsoft.com/technet/community/scriptcenter/filefolder/scrff64.mspx

Can you put the code over here?

Thanks

0
 
LVL 76

Accepted Solution

by:
David Lee earned 500 total points
ID: 12286241
Hmmm, the link doesn't work for me today either.  In fact every link to specific scripts seems to take me to the ScriptCenter home page.  Seems as if something's changed on that site.  Anyway, here's the code.  Change the folder path on the third line to your folder path.

Dim arrHeaders(34)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\Testing")
For i = 0 to 33
    arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
Next
For Each strFileName in objFolder.Items
    For i = 0 to 33
        Wscript.echo i & vbtab & arrHeaders(i) _
            & ": " & objFolder.GetDetailsOf(strFileName, i)
    Next
Next
0
Comparison of Amazon Drive, Google Drive, OneDrive

What is Best for Backup: Amazon Drive, Google Drive or MS OneDrive? In this free whitepaper we look at their performance, pricing, and platform availability to help you decide which cloud drive is right for your situation. Download and read the results of our testing for free!

 
LVL 1

Author Comment

by:Alexdelen
ID: 12287104
Found it in the meanwhile.

Great job on this. One more additional question do you know any code to modify those props?
0
 
LVL 76

Expert Comment

by:David Lee
ID: 12293263
Modify them how?  
0
 
LVL 1

Author Comment

by:Alexdelen
ID: 12295250
Now i can read them with this script but is it also possible to modify them (the value) with wscript vbs or anything else?

0
 
LVL 76

Expert Comment

by:David Lee
ID: 12296439
No, sorry, I don't know of any way to do that.
0
 
LVL 1

Author Comment

by:Alexdelen
ID: 12296994
anyway you helped me on this one and it was very useful

accepted
0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Recreate New ADC 1 296
Kill system process in windows 2000 10 216
Screen Mirroring 7 111
Windows Server 2012 & 2000 Network HELP 55 116
NTFS file system has been developed by Microsoft that is widely used by Windows NT operating system and its advanced versions. It is the mostly used over FAT file system as it provides superior features like reliability, security, storage, efficienc…
Deploying our service is a grudge match between customer benefits and customer pain. In one corner, rolling out fixes (yay!) and delivering new features (double yay!). In the other corner, training on new features (boo – sounds like work), and chan…
In an interesting question (https://www.experts-exchange.com/questions/29008360/) here at Experts Exchange, a member asked how to split a single image into multiple images. The primary usage for this is to place many photographs on a flatbed scanner…
I've attached the XLSM Excel spreadsheet I used in the video and also text files containing the macros used below. https://filedb.experts-exchange.com/incoming/2017/03_w12/1151775/Permutations.txt https://filedb.experts-exchange.com/incoming/201…

734 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question