DateLastModified property date extraction

  • Thread starter Thread starter Nigel
  • Start date Start date
N

Nigel

I am trying to extract the DATE part of a file using the DateLastModified
property. Anyone experience of doing this?

It appears I need to define the file as an object first then read the object
property, and finally extract the date string.

TIA
Nigel
 
Nigel,

in Tools/References set a reference to "Microsoft Scripting Runtime"

Then:

Sub GetFileMod()
Dim oFS As New Scripting.FileSystemObject
Dim oFL As Scripting.File
Set oFL = oFS.GetFile("test1.xls")
MsgBox oFL.DateLastModified

End Sub

keepITcool

< email : keepitcool chello nl (with @ and .) >
< homepage: http://members.chello.nl/keepitcool >
 
Nigel,

If you don't have a reference to the Scripting Runtime Library, go to the
Tools menu, choose References, find "Scripting Runtime Library" and check
it. Then, use code like


Dim FSO As Scripting.FileSystemObject
Dim F As Scripting.File
Set FSO = New Scripting.FileSystemObject
Set F = FSO.GetFile(ThisWorkbook.FullName)
Debug.Print Int(F.DateLastModified)


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


Nigel said:
I am trying to extract the DATE part of a file using the DateLastModified
property. Anyone experience of doing this?

It appears I need to define the file as an object first then read the object
property, and finally extract the date string.

TIA
Nigel




----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption
Click to expand...
=---
 
That's got it, thanks a lot

keepitcool said:
Nigel,

in Tools/References set a reference to "Microsoft Scripting Runtime"

Then:

Sub GetFileMod()
Dim oFS As New Scripting.FileSystemObject
Dim oFL As Scripting.File
Set oFL = oFS.GetFile("test1.xls")
MsgBox oFL.DateLastModified

End Sub

keepITcool

< email : keepitcool chello nl (with @ and .) >
< homepage: http://members.chello.nl/keepitcool >
Click to expand...
 
Chip,

Thanks for your help again, to illuminate my understanding further, I found
the "Microsoft Scripting Runtime" in my system (XP SP2 & Excel SP2), however
will this code run in NT4 / Excel 97 which is my target system ?

TIA
Nigel
 
Nigel,

I believe that the Scripting Runtime Library is installed by Internet
Explorer version 5, so if you have IE5 or later on the system, it should
work fine.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

Nigel said:
Chip,

Thanks for your help again, to illuminate my understanding further, I found
the "Microsoft Scripting Runtime" in my system (XP SP2 & Excel SP2), however
will this code run in NT4 / Excel 97 which is my target system ?

TIA
Nigel







----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption
Click to expand...
=---
 
These show the API approach:

http://support.microsoft.com/default.aspx?scid=kb;en-us;185476&Product=vb6
HOWTO: Search Directories to Find or List Files

http://support.microsoft.com/default.aspx?scid=kb;en-us;154821&Product=vb6
HOWTO: Get Extended File Time Information Using the Win32 API

--
Regards,
Tom Ogilvy

Nigel said:
Chip,

Thanks for your help again, to illuminate my understanding further, I found
the "Microsoft Scripting Runtime" in my system (XP SP2 & Excel SP2), however
will this code run in NT4 / Excel 97 which is my target system ?

TIA
Nigel







----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption
Click to expand...
=---
 
Back
Top