Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations sizbut on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Returning the properties of a file
- Thread starter GSMike
- Start date
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
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
- Thread starter
- #4
- Status
Similar threads
- Locked
- Question
- Question