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

Question

有一个文件夹，每天自动创建固定名称的文件夹。我想监视哪个是最新的文件夹，我为此制作了一个 vbscript，但由于某种原因它不起作用。文件夹名称自动生成为 DATA + 日期格式，所以我想我会用“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

Answer 1

尝试 re-arranging 您的测试，以便排除所有名称错误的文件夹：

Function GetRecentFolder(path) As Object
    Dim fso, folder
  
    Set fso = CreateObject("Scripting.FileSystemObject")
  
    For Each folder in fso.GetFolder(path).SubFolders
        If folder.Name Like "DATA*" Then    
            If GetRecentFolder is Nothing  Then 
                Set GetRecentFolder = folder
            ElseIf folder.DateLastModified > GetRecentFolder.DateLastModified Then
                Set GetRecentFolder = folder
            End If
        End If
    Next
End Function

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

monitor the most recently created folder with the specified name with vbscript

vbscript