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

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\目标文件夹路径")
strTargetFolderName = "目标文件夹名称"
dtmLastModified = #1/1/1970#

For Each objSubFolder In objFolder.SubFolders
    If objSubFolder.Name = strTargetFolderName Then
        If objSubFolder.DateCreated > dtmLastModified Then
            dtmLastModified = objSubFolder.DateCreated
            strLatestFolder = objSubFolder.Path
        End If
    End If
Next

If dtmLastModified = #1/1/1970# Then
    WScript.Echo "未找到最近创建的指定文件夹。"
Else
    WScript.Echo "最近创建的指定文件夹路径为：" & strLatestFolder
End If