File Properties

[Kenln]

I am not sure how to word this.

In 'MS Windows Explorer' if you right click one can view a files properties. Under the 'Summary' tab most programs have a space for version.

Does any know of a way to fill this in programmatically? The other field would be nice too if possible.

Thank you,

 

[tehNellie]

I've not got the time right now to look into it in more detail, but I'd suggest that the the FileSystemObject would probably be worth exploring as a likely candidate for updating this programatically.

 

[boblarson]

Yep, set a reference to Microsoft Scripting Runtime and then look into the FILE object. It has all of the properties like that.

 

[Kenln]

This is what I have so far
http://support.microsoft.com/kb/189751

Cannot return the file version number - the File object in the Files collection of the FileSystemObject can return several file properties. However, there is no version property. Use the GetFileVersionInfo Windows API function to get a file's version information.

I found this but... I think I'm outside my league
http://msdn2.microsoft.com/en-us/library/ms647003.aspx

I'll keep looking, if you find anything please let me know.

 

[KeithG]

I thing the properties like this in the FSO are read only

 

[Kenln]

I've tried revision, version, revnum, revisionnumber.

I can't seem to locate the right property name if it is there.

 

[Kenln]

oops,
left out code,

Sub ShowFileAccessInfo()

Dim filespec As String
    filespec = "C:\junk\test.txt"
    Dim fs, d, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = UCase(f.Path) & vbCrLf
    s = s & "Created: " & f.DateCreated & vbCrLf
    s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
    s = s & "Last Modified: " & f.DateLastModified & vbCrLf
    s = s & "Revision: " & f.RevisionNumber & vbCrLf

    MsgBox s, 0, "File Access Info"
End Sub

 

[KeithG]

You should use early binding as bob suggested. This way you will be able to use intellsense

 

[Kenln]

I know what early binding is but...
Could you help with that

 

[KeithG]

sure just set a reference to the Microsoft Scripting Runtime

 

[boblarson]

To use early binding just set a reference as Keith has said and change it to:

Sub ShowFileAccessInfo()

Dim filespec As String
    filespec = "C:\junk\test.txt"
    Dim fs As FileSystemObject, d As Directory, f as File, s As String
    Set fs = New FileSystemObject
    Set f = fs.GetFile(filespec)
    s = UCase(f.Path) & vbCrLf
    s = s & "Created: " & f.DateCreated & vbCrLf
    s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
    s = s & "Last Modified: " & f.DateLastModified & vbCrLf
    s = s & "Revision: " & f.RevisionNumber & vbCrLf

    MsgBox s, 0, "File Access Info"
End Sub

 

[boblarson]

But the version and revision isn't going to be available from what I've seen in the article you posted.

You would need to use the GetFileVersionInfo API and there is another one you would need in association with it. Don't have time to sort it now.

 

[Kenln]

Oh well, it was a good try.

Thanks,