Csv 递归检查上次访问的文件日期时间戳

我有以下作为脚本一部分的代码：

Quote = Chr(34)
arrExt = Array(".mdb")
Set objFSO = CreateObject("Scripting.FileSystemObject")
ScanFolder(objFSO.GetFolder("E:\"))

Function ScanFolder(objFolder)
   For Each objFile In objFolder.Files
      For Each strExt In arrExt
         If LCase(Right(objFile.Name, Len(strExt))) = LCase(strExt) Then
            WScript.Echo Quote & objFile.Path & Quote & "," & objFile.DateLastAccessed
            Exit For
         End If
      Next
   Next
   For Each objSubFolder In objFolder.SubFolders
      ScanFolder(objSubFolder)
   Next
End Function

它返回：

Microsoft VBScript运行时错误：权限被拒绝

---

顺便说一句，我们使用的是Windows Server 2003，我是管理员，我甚至试着以管理员身份运行CMD来启动脚本。我已检查了\users\中的所有文件夹，并确保我作为管理员拥有完全控制权限。

错误消息是不言自明的。显然，您没有访问E:\的某些子文件夹的权限。获取最后一个输出行的路径并从中检查权限。我认为与权限无关。因为我已经创建了嵌套文件夹。我让本收到了同样的信息