15-3.txt

来自「开发王代码 代码」· 文本 代码 · 共 31 行

TXT
31
字号
<body>
<script type="text/javascript">
<!--
function showFolderInfo(Folder){
   var s="";
   s = "路径:" + Folder.Path + "<br />";
   s = s + "名称:" + Folder.Name + "<br />";
   s = s + "创建日期:" + Folder.DateCreated + "<br />";
   s = s + "修改日期:" + Folder.DateLastModified + "<br />";
   s = s + "最后访问日期:" + Folder.DateLastAccessed + "<br />";
   try {
     s = s + "大小:" + Folder.Size + "<br />";
   }catch(err){
     //-----------
   }
   s = s + "<br />";
   return s;
}
var fso = new ActiveXObject("Scripting.FileSystemObject");
var drv = fso.GetDrive("e:");
var rootFolderObj = drv.RootFolder;
//对每个文件夹循环执行ShowFolderInfo函数

var e = new Enumerator(rootFolderObj.SubFolders);
for (; !e.atEnd(); e.moveNext()){
  document.write(showFolderInfo(e.item()));
}
-->
</script>
</body>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?