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

Question

我想得到一个ppt文件的最后修改日期并提出条件：如果它在一周之后的其他时间比其他情况继续下去。那是我写的，但它不起作用！

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

我总是在Set f = fs.GetFile(FilePath) !!

中犯错误 你能帮帮我吗？ 非常感谢

Answer 1

试试这个

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

也许是这样的

.as-console-wrapper { max-height: 100% !important; top: 0; }

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