需要帮助创建一个脚本来查找文件夹在最后一天是否被修改，如果没有在某个位置创建一个 txt 文件

Question

我正在尝试创建一个脚本来查找文件夹在过去一天是否未被修改，并在某个位置创建一个文本文件。但是，如果它在最后一天被修改，我希望它退出脚本。

目前，我只能创建一个（由于我对 VBscripting 的基本知识）来查找文件夹是否存在，如果存在则创建脚本。

然而，这不起作用，因为子文件夹每天都使用新名称创建，显然这意味着我的脚本必须每天更改，这是毫无意义的。

如果上次修改日期不小于 1 天，我需要读取父文件夹并在另一个位置创建一个文本文件
。

这是目前的脚本：

 Set objFSO = CreateObject("Scripting.FileSystemObject")
   If objFSO.FolderExists("c:\test") Then
   wsscript.quit
   Else
   dim filesys, filetxt, getname, path 
   Set filesys = CreateObject("Scripting.FileSystemObject") 
   Set filetxt = filesys.CreateTextFile("c:\test\test.txt", True) 
   path = filesys.GetAbsolutePathName("c:\test\test.txt") 
   getname = filesys.GetFileName(path) 
   filetxt.WriteLine("file doesnt exist.") 
   filetxt.Close 
   End If

我知道我需要将 .folderExists 行更改为

if file.DateLastModified > dateadd("h", -24, Now) then

我想要一个天参数而不是一个小时；我知道这意味着将 h 变成 d，但我不确定是否可以。

邦德先生已经解决了！他是个了不起的人。但是我现在有另一个问题，知道如何添加一个命令来向其中发送 outlook 电子邮件吗？作为 else 选项。

Answer 1

使用Folder对象的DateLastModified属性。

If objFSO.GetFolder("c:\test").DateLastModified >= Date - 1 Then
    ' Folder modified within last day
Else
    ' Folder modified more than a day ago
End

不需要使用 DateAdd() 到 add/subtract 天。你可以只使用整数运算。

请注意，这将产生 zero/midnight 的时间。所以它实际上是在检查文件夹是否从昨天开始就被修改，而不是在过去 24 小时内。这可能是也可能不是你想要的。

需要帮助创建一个脚本来查找文件夹在最后一天是否被修改，如果没有在某个位置创建一个 txt 文件

needing help creating a script to find if a folder has been modified in the last day and if not create a txt file in a location

directory

vbscript

last-modified

days