Fairly certain that (filespec) needs to be the path to a file as in
"C:\Users\Micron\Documents\Excel\myFileNameHere.xls"
In order to get info into a cell, you'd need to change Sub and End Sub to Function and End Function and place that function into a standard module.
You'd enter =ShowFileAccessInfo("C:\Users\Micron\Documents\Excel\myFileNameHere.xls") in a cell and then Enter to run it. Make sure you use your own file path and not what I posted.
I just noticed that the code is not proper for returning a value to the cell. More like this (including the change to a function and only returning what I think you asked for).
VBA Code:
Function ShowFileAccessInfo(filespec)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = "Last Modified: " & f.DateLastModified
'MsgBox s, 0, "File Access Info"
ShowFileAccessInfo = s
End Function
We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel
Which adblocker are you using?
Disable AdBlock
Follow these easy steps to disable AdBlock
1)Click on the icon in the browser’s toolbar. 2)Click on the icon in the browser’s toolbar. 2)Click on the "Pause on this site" option.
Go back
Disable AdBlock Plus
Follow these easy steps to disable AdBlock Plus
1)Click on the icon in the browser’s toolbar. 2)Click on the toggle to disable it for "mrexcel.com".
Go back
Disable uBlock Origin
Follow these easy steps to disable uBlock Origin
1)Click on the icon in the browser’s toolbar. 2)Click on the "Power" button. 3)Click on the "Refresh" button.
Go back
Disable uBlock
Follow these easy steps to disable uBlock
1)Click on the icon in the browser’s toolbar. 2)Click on the "Power" button. 3)Click on the "Refresh" button.