vbscript .DateCreated没有应对新的一个月

Question

我正在使用以下代码在目录中查找最新的.zip文件，但它似乎没有应对切换到6月，仍然显示最新文件为昨天。

当我今天运行脚本时，它显示了最新的31/05/2011 06:05文件，但有两个比这更新的文件（见截图）

For Each aFile In ImportFldr.Files
sExtension = fso.GetExtensionName(aFile.Name)
    If sExtension = "log" Then
            'Msgbox "The file extension is a " & sExtension
        Else
            'Msgbox "The file extension is a " & sExtension
                         If fileNewest = "" Then
                        Set fileNewest = aFile  
                     Else
                     If fileNewest.DateCreated < aFile.DateCreated Then
                            Set fileNewest = aFile
                     End If
                    End If
                End If
Next

由于

Answer 1

问题可能是您正在检查文件创建日期（DateCreated），而Explorer会显示上次修改日期（DateLastModified）。将 Date created 列添加到Explorer的视图中，然后查看脚本的结果是否有意义。