Solved

Extended File Attributes - ASP.net 3.5

Posted on 2008-10-20
3
725 Views
Last Modified: 2012-05-05
Is there any way to access extended attributes of a file? Specifically I am referring to attributes such as; Title, Author, Comments, Keywords?Tags (all can be found by right-clicking a file and then clicking summary). Are these attributes accessible through ASP.net 3.5? VB in particular but C# is fine.
0
Comment
Question by:Patrick_Nisbet
[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
  • 2
3 Comments
 
LVL 16

Expert Comment

by:Gyanendra Singh
ID: 22768242
please find sample code
private void btnProperties_Click(object sender, EventArgs e)
 
{
 
this.txtProperties.Text = null;
 
sourceFileName = null;
 
openFileDialog.ShowDialog();
 
if (!System.IO.File.Exists(sourceFileName))
 
{
 
MessageBox.Show("The selected file either does not exist or you didn't pick any.");
 
return;
 
}
 
this.ClientSize = new System.Drawing.Size(415, 158);
 
this.txtProperties.Show();
 
this.btnHide.Show();
 
StringBuilder stbOutput = new StringBuilder("");
 
System.IO.FileAttributes Attributes = System.IO.File.GetAttributes(sourceFileName);
 
stbOutput.Append("Date of Creation: " + System.IO.File.GetCreationTime(sourceFileName) + "rn");
 
stbOutput.Append("Date of Modification: " + System.IO.File.GetLastWriteTime(sourceFileName) + "rn");
 
stbOutput.Append("Date of Last Access: " + System.IO.File.GetLastAccessTime(sourceFileName) + "rn");
 
stbOutput.Append("Attributes: rn");
 
stbOutput.Append("Archive: " + Convert.ToBoolean((Attributes & System.IO.FileAttributes.Archive) == (System.IO.FileAttributes.Archive)) + " ");
 
stbOutput.Append("Directory: " + Convert.ToBoolean((Attributes & System.IO.FileAttributes.Directory) == (System.IO.FileAttributes.Directory)) + "rn");
 
stbOutput.Append("Encrypted: " + Convert.ToBoolean((Attributes & System.IO.FileAttributes.Encrypted) == (System.IO.FileAttributes.Encrypted)) + " ");
 
stbOutput.Append("Hidden: " + Convert.ToBoolean((Attributes & System.IO.FileAttributes.Hidden) == (System.IO.FileAttributes.Hidden)) + "rn");
 
stbOutput.Append("Normal: " + Convert.ToBoolean((Attributes & System.IO.FileAttributes.Normal) == (System.IO.FileAttributes.Normal)) + " ");
 
stbOutput.Append("Read-only: " + Convert.ToBoolean((Attributes & System.IO.FileAttributes.ReadOnly) == (System.IO.FileAttributes.ReadOnly)) +"rn");
 
stbOutput.Append("System: " + Convert.ToBoolean((Attributes & System.IO.FileAttributes.System) == (System.IO.FileAttributes.System)) + " ");
 
stbOutput.Append("Temporary: " + Convert.ToBoolean((Attributes & System.IO.FileAttributes.Temporary) == (System.IO.FileAttributes.Temporary)));
 
txtProperties.Text = stbOutput.ToString();
 
}

Open in new window

0
 

Author Comment

by:Patrick_Nisbet
ID: 22769876
Hi,

Thanks for your reply. This code looks like it lists the standard file FileAttributes but not the extended one like Title, Author, Comments, Keywords/Tags.
It these ones I need to access.
Thanks
0
 

Accepted Solution

by:
Patrick_Nisbet earned 0 total points
ID: 22818891
Hi
I found the solution of Expert Exchange though there was a lot of confusion as to whether it worked on non-Office file or jpgs. It does. You need to download in and register on your server the DSOFile. Check this out:
http://www.microsoft.com/technet/scriptcenter/resources/tales/sg0305.mspx
Some of my code is below. I read the contents of a directory (jpgs and pdfs) and then display the contents with the extented information.
Thanks for your help

        Dim myDirInfo As DirectoryInfo
        Dim arrFileInfo As Array
        Dim myFileInfo As FileInfo
 
 
        ' Dim myContents As String = filepath_id & " - " & mydirectory_file & " - " & myFilter & " - " & strLastPath & "<table width='100%'>"
        Dim myContents As String = "<div id='title_div'></div><table width='100%'>"
 
        Try
 
            ' Get Directory & File Info
            myDirInfo = New DirectoryInfo(strPath)
 
            arrFileInfo = myDirInfo.GetFiles()
 
            Dim myExcludeArray As Array
            Dim myRFileTruncated As String
            Dim myDisplayPrefix As String
            Dim myDisplaySuffix2 As String
 
            ' Iterate the FileInfo objects and extract te data
            For Each myFileInfo In arrFileInfo
 
                Dim objFile As Object = CreateObject("DSOFile.OleDocumentProperties")
                objFile.Open(myFileInfo.FullName, "True")
 
                Select Case filepath_id
 
                    Case "cashe"       'cashe
 
                        If InStr(myDisplaySuffix, "`") > 0 Then
                            myDisplayPrefix = Left(myDisplaySuffix, InStr(myDisplaySuffix, "`") - 1)
                            myDisplaySuffix2 = Mid(myDisplaySuffix, InStr(myDisplaySuffix, "`") + 1)
                        Else
                            myDisplayPrefix = ""
                            myDisplaySuffix2 = myDisplaySuffix
                        End If
 
 
 
                        If InStr(myFilter, "|") > 0 Then
 
 
 
                            If InStr(myFileInfo.Name, myFileSuffix) <> 0 And InStr(myFileInfo.Name, "_work.jpg") = 0 And InStr(myFileInfo.Name, "_solutions") = 0 And InStr(myFileInfo.Name, "A_2002") = 0 And InStr(myFileInfo.Name, "2001") = 0 And InStr(myFileInfo.Name, "AD") = 0 And InStr(myFileInfo.Name, "CH") = 0 And InStr(myFileInfo.Name, "LE") = 0 And InStr(myFileInfo.Name, "EA") = 0 And InStr(myFileInfo.Name, "OR") = 0 Then
 
                                myContents = myContents & "<tr valign='top'><td><a href='download.aspx?FileName=" & myFileInfo.Name & "&dir=" & myDir & "'><img src='" & myResources_URL & myDisplayDirectory & "\" & myDisplayPrefix & Left(myFileInfo.Name, Len(myFileInfo.Name) - myDisplayCutOff) & myDisplaySuffix2 & ".jpg' border='0' /></a></td>"
                                myContents = myContents & "<td><a href='download.aspx?FileName=" & myFileInfo.Name & "&dir=" & myDir & "'>" & myFileInfo.Name & "<br />" & objFile.SummaryProperties.Keywords & "</a></td>"
                                myContents = myContents & "<td>" & myFileInfo.Length & "</td>"
                                myContents = myContents & "<td>" & myFileInfo.Extension & "</td></tr>"
 
                            End If
 
                        Else
 
                            If InStr(myFileInfo.Name, myFileSuffix) <> 0 And InStr(myFileInfo.Name, "_work.jpg") = 0 And InStr(myFileInfo.Name, myFilter) <> 0 And InStr(myFileInfo.Name, "A_2002") = 0 And InStr(myFileInfo.Name, "2001") = 0 Then
 
                                myContents = myContents & "<tr valign='top'><td><a href='download.aspx?FileName=" & myFileInfo.Name & "&dir=" & myDir & "'><img src='" & myResources_URL & myDisplayDirectory & "\" & myDisplayPrefix & Left(myFileInfo.Name, Len(myFileInfo.Name) - myDisplayCutOff) & myDisplaySuffix2 & ".jpg' border='0' /></a></td>"
                                myContents = myContents & "<td><a href='download.aspx?FileName=" & myFileInfo.Name & "&dir=" & myDir & "'>" & myFileInfo.Name & "</a></td>"
                                myContents = myContents & "<td>" & CInt(myFileInfo.Length / 1000) & "K</td>"
                                myContents = myContents & "<td>" & myFileInfo.Extension & "</td></tr>"
 
                            End If
 
                        End If
 
End Select

Open in new window

0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

Lots of people ask this question on how to extend the “MembershipProvider” to make use of custom authentication like using existing database or make use of some other way of authentication. Many blogs show you how to extend the membership provider c…
In this Article, I will provide a few tips in problem and solution manner. Opening an ASPX page in Visual studio 2003 is very slow. To make it fast, please do follow below steps:   Open the Solution/Project. Right click the ASPX file to b…
If you're a developer or IT admin, you’re probably tasked with managing multiple websites, servers, applications, and levels of security on a daily basis. While this can be extremely time consuming, it can also be frustrating when systems aren't wor…
In this video, viewers are given an introduction to using the Windows 10 Snipping Tool, how to quickly locate it when it's needed and also how make it always available with a single click of a mouse button, by pinning it to the Desktop Task Bar. Int…

696 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