Databases
StackOverflow2013
Postsdbo
POVB.NET - Edit file property "Company" etc?
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POVB.NET - Edit file property "Company" etc?
    primarykey
    data
    text
    <p>I was wondering how I can set a file's properties? I'm talking about the fields, author, company etc. I found a way of doing it through Word's builtin properties. But it's a little buggy. So I was wondering if it's possible to do that in other ways?</p> <p>I have this code that works for all Word document files except *.doc format it seems. This is the code I have so far, one text box and one button. The button runs findDocLoop()</p> <pre><code> Dim oWord As Word.Application Dim oDoc As Word.Document Dim oBuiltInProps As Object Public Sub findDocLoop() Dim strRootPath As String strRootPath = txtBoxRootpath.Text Dim di As New IO.DirectoryInfo(strRootPath) Dim aryFi As IO.FileInfo() = di.GetFiles("*.doc") Dim aryFi2 As IO.FileInfo() = di.GetFiles("*.dot") Dim aryFi3 As IO.FileInfo() = di.GetFiles("*.doc*") Dim fi As IO.FileInfo For Each fi In aryFi If Not fi.FullName.Contains("~$") Then RunRenameProcess(txtBoxRootpath.Text &amp; "\" &amp; fi.ToString) End If Next For Each fi In aryFi2 If Not fi.FullName.Contains("~$") Then RunRenameProcess(txtBoxRootpath.Text &amp; "\" &amp; fi.ToString) End If Next For Each fi In aryFi3 If Not fi.FullName.Contains("~$") Then RunRenameProcess(txtBoxRootpath.Text &amp; "\" &amp; fi.ToString) End If Next oDoc = Nothing lblDone.Text = "Finished" End Sub Public Function FileInUse(ByVal sFile As String) As Boolean Dim thisFileInUse As Boolean = False If System.IO.File.Exists(sFile) Then Try Using f As New IO.FileStream(sFile, FileMode.Open, FileAccess.ReadWrite, FileShare.None) thisFileInUse = False End Using Catch thisFileInUse = True writeToLog(sFile) End Try End If Return thisFileInUse End Function Public Sub writeToLog(ByVal strFile As String) Dim sContents As String sContents = strFile &amp; " - " &amp; DateTime.Now.ToLongTimeString SaveTextToFile(sContents, Directory.GetCurrentDirectory &amp; "\errorlog.txt") End Sub Private Sub RunRenameProcess(ByVal strFile) If FileInUse(strFile) = False Then 'Create instance of Word and make it visible 'On Error Resume Next oDoc = oWord.Documents.Open(strFile) 'Get the properties collection in file oBuiltInProps = oDoc.BuiltInDocumentProperties 'Set the value of the properties oBuiltInProps.Item("Company").Value = txtBoxCompany.Text ' AT THIS POINT, THE PROPERTY IS ACTUALLY SET (IF I CHECK IN WORD) oDoc.Save() ' AT THIS POINT, THE PROPERTY IS RESET TO THE DEFAULT WORD COMPANY VALUE(DOMAIN) oDoc.Close() End If End Sub </code></pre> <p>I know it can probably be done better, but I'm kinda in a hurry. I just noticed when I set a break point right after the code sets the value of the property. I set Word to be open, got in there and checked the property value. And it was actually set!. But after the save phaze, it seems to be lost. Or "reset" to some Office defaults. Which is my company name.</p>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USKenny Bones
    1. USKenny Bones
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POVB.NET - Edit file property "Company" etc?
      1. USBala R
      1. VTFavorite
    2. VO
      singulars
      1. POVB.NET - Edit file property "Company" etc?
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. POVB.NET - Edit file property "Company" etc?
      1. This table or related slice is empty.
      1. VTUpMod
    1. COWhat kind of file?
      singulars
      1. POVB.NET - Edit file property "Company" etc?
      1. USSLaks
    2. COBasically all Word files. I tried opening a winword.exe and doing it through there, but for some reason, files with "doc" extention doesn't get their properties saved. It's weird. It works on docx, docm" etc, in the same loop.
      singulars
      1. POVB.NET - Edit file property "Company" etc?
      1. USKenny Bones
    3. COYou have to use Word interop to do this. You leave no clue why "it is a little buggy".
      singulars
      1. POVB.NET - Edit file property "Company" etc?
      1. USHans Passant
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload