Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 388
  • Last Modified:

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

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
Alexdelen
Asked:
Alexdelen
  • 4
  • 4
1 Solution
 
David LeeCommented:
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
 
AlexdelenAuthor Commented:
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
 
David LeeCommented:
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
Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

 
AlexdelenAuthor Commented:
Found it in the meanwhile.

Great job on this. One more additional question do you know any code to modify those props?
0
 
David LeeCommented:
Modify them how?  
0
 
AlexdelenAuthor Commented:
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
 
David LeeCommented:
No, sorry, I don't know of any way to do that.
0
 
AlexdelenAuthor Commented:
anyway you helped me on this one and it was very useful

accepted
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 4
  • 4
Tackle projects and never again get stuck behind a technical roadblock.
Join Now