Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Private Sub Command1_Click()
Dim oFSO As Object
Dim oFile As Object
Dim sFile As String
sFile = "C:\My Documents\OT.xls"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.GetFile(sFile)
With oFile
Debug.Print "DateCreated", .DateCreated
Debug.Print "DateLastModified", .DateLastModified
Debug.Print "Size", .Size
Debug.Print "ShortPath", .ShortPath
End With
Set oFile = Nothing
Set oFSO = Nothing
End Sub