File Information??

I

ianripping

If I have the path to a file in A1. Is there a way that I could get the
informatin about when the file was created to appear in B1?
 
B

Bob Phillips

Ian,

Just add this function to your workbook,

Public Function GetDate(rng)
Dim FileName As String
Dim DSO As Object
If TypeName(rng) = "Range" Then
If rng.Cells.Count > 1 Then
GetDate = CVErr(xlErrRef)
Exit Function
End If
FileName = rng.Value
Else
FileName = rng
End If

Set DSO = CreateObject("DSOleFile.PropertyReader")
With DSO.GetDocumentProperties(sfilename:=FileName)
GetDate = .DateCreated
End With
End Function



Call like

=GetDate(A1)

or

=GetDate("C:\myTest\volker1.xls")

You do need to have the DSO dll installed and registered?

http://support.microsoft.com/?id=224351

set the section "Steps to Setup and Test"


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
L

loadhigh

hi,

You can use the File System Object(FSO) 's File (object) in Vba Code to
get a File Such as "DateCreated","DateLastAccessed","DateLastModified"...
attributes.

So you can get any File 's "DateCreated" Attribute to fill in worksheet's
"B1".
 
B

Bob Phillips

Like so

Dim oFile As Object

Set oFSO = CreateObject("Scripting.FilesystemObject")
Set oFile = oFSO.getFile("C:\myTest\volker1.xls")
MsgBox "Created on " & oFile.Datecreated


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Top