vba code to find original file information?

[N_Mitch]

G'day,

Is there any code which can display the original file information? The type of information I need is as follows:

File location
Date
Excel version
Created by whom

Thank you,

Mitch

 

[iggydarsa]

dont know about date and crated by whom but following code shows the file location and excel version

Sub ShowInfo()
MsgBox "File location: " & ThisWorkbook.Path & Chr(13) & _
"Version: " & Application.Version
End Sub

 

[iggydarsa]

and this is the creation date:

Sub ShowInfo() 
MsgBox "File location: " & ThisWorkbook.Path & Chr(13) & _ 
"Version: " & Application.Version & chr(13) & _
"Creation Date: " & FileDateTime(ThisWorkbook.Path & "\" & ThisWorkbook.Name)
End Sub

 

[N_Mitch]

Thanks iggydarsa

However, what I want to know is the original file location where the file was created in. I'm not sure if this information is stored in a file or not.

In other words, even where a file has been copied, or SavedAs, to a new location, is there some vba code that can display the original file location?

Thanks,

Mitch

 

[Datsmart]

ADVERTISEMENT

This code should give the info:

Sub ListStuff()
    Range("B3").Value = "Workbook Path"
    Range("B4").Value = "File Creation Date"
    Range("B5").Value = "Application Version"
    Range("B6").Value = "Created by:"
    
    Range("C3").Value = ActiveWorkbook.Path
    Range("C4").Value = ThisWorkbook.BuiltinDocumentProperties(11).Value
    Range("C5").Value = Application.Version
    Range("C6").Value = ThisWorkbook.BuiltinDocumentProperties(3).Value
End Sub

 

[Datsmart]

Original File Path would not be available.

 

[N_Mitch]

Excellent!

That was just what I was after, John (although I would have really liked the orig file location as well!).

Thanks,

Mitch