Powerpoint宏获取文件的最后修改日期

Question

I want to get the last modified date of a ppt file and put the condition : if it's in after thursady of the week than out else go on. That's what i wrote but it doesn't work!

Sub proprietes()


Set fs = CreateObject("Scripting.FileSystemObject")
FilePath = "C:\Users\Moez\Desktop\Macro Project\test v2"
Set f = fs.GetFile(FilePath)
fileModDate = f.DateLastModified
End Sub

i always get the mistake in Set f = fs.GetFile(FilePath) !!

Could you help me please? thanks a lot

Answer 1

Try this

Sub proprietes()

Set fs = CreateObject("Scripting.FileSystemObject")
FilePath = "C:\Users\....\Desktop\TestPPT.pptx"
Set f = fs.GetFile(FilePath)
fileModDate = f.DateLastModified
End Sub

Answer 2

maybe something like this

 FilePath = Dir("C:\Users\Moez\Desktop\Macro Project\test v2*")
 fileModDate = FileDateTime(FilePath)

https://www.techonthenet.com/excel/formulas/filedatetime.php