Returning the properties of a file

[GSMike]

Could you please tell me how to return the following properties:

Last Accessed
Size

through VB code?

Thank you for your help. I need this bad!!!!

-Mike Mike Kemp
kempm541145@yahoo.com

 

[dpaulson]

Option Explicit
Dim fso As FileSystemObject

Private Sub Command1_Click()
Dim ofile As Scripting.File
Dim sfile As String
sfile = "C:\programing\David\Database\Accounting.mdb" 'put the name of your file here
Set fso = New FileSystemObject
Set ofile = fso.GetFile(sfile)
MsgBox ofile.DateCreated, , "Date Created"
MsgBox ofile.DateLastAccessed, , "Date Last Assessed"
MsgBox ofile.DateLastModified, , "Date Last Modified"
MsgBox ofile.Size, , "File Size"
MsgBox ofile.Type, , "File type"
End Sub

David Paulson

 

[dpaulson]

oh ya, you need to make reference to microsoft sripting runtime
David Paulson

 

[GSMike]

That looks great.
Thank you, sir!! Mike Kemp
kempm541145@yahoo.com