使用vbscript监视最近创建的具有指定名称的文件夹

有一个文件夹，其中每天自动创建具有固定名称的文件夹。 我想监控哪一个是最新的文件夹，我为此制作了一个vbscript，但由于某些原因它无法工作。 文件夹名称是以数据+日期格式自动生成的，因此我想我应该注意“instr”命令中的第一个字符“D”，以及“if”中最后修改的文件夹

这里是我的代码功能的一部分：

Function GetRecentFolder(path)
  Dim fso, folder
  
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set GetRecentFolder = Nothing
  For Each folder in fso.GetFolder(path).SubFolders
    If GetRecentFolder is Nothing  Then 
      Set GetRecentFolder = folder
   
    ElseIf instr (1,folder.Name, "D",1) and folder.DateLastModified > GetRecentFolder.DateLastModified Then
      Set GetRecentFolder = folder
    End If
  Next
End Function

---

尝试重新安排测试，以便排除所有名称错误的文件夹：

函数GetRecentFolder（路径）作为对象 Dim fso，文件夹 设置fso=CreateObject（“Scripting.FileSystemObject”） 对于fso.GetFolder（path）.SubFolders中的每个文件夹 如果文件夹名称像“DATA*”那么 如果GetRecentFolder什么都不是，那么 设置GetRecentFolder=文件夹 ElseIf folder.DateLastModified>GetRecentFolder.DateLastModified然后 设置GetRecentFolder=文件夹 如果结束 如果结束 下一个 端函数

---

“它不起作用”不是一个非常有用的描述，它描述了当您运行代码时会发生什么……当您第一次设置返回值时，您不会检查名称是否包含“D”<代码>如果文件夹.Name类似于“DATA*”，则此处的检查可能更可靠。是的，很抱歉，错误是查找最新文件夹，但文件夹名称搜索不起作用。最近的文件夹名为METADATA，因此您将始终找到它，而不是数据名。@kovacsr，而不是将其放在注释中，回答问题并添加缺少的详细信息。这很有效，谢谢您的帮助。