hta(vbs)列目录树代码

代码如下:

<html>
<head>
<title>磁盘管理器</title>
</head>
<body>
<div id="DivList"></div>
<script language="vbscript">
Sub List(sPath)
sPath = Replace(sPath, "*", " ")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set c_drive = FSO.GetFolder(sPath)
Set c_files = c_drive.Files
Set c_folder = c_drive.SubFolders
sHTML = "<table width='100%' border='1' cellspacing='0' cellpadding='0'>"
For Each a In c_files
sHTML = sHTML & "<tr><td>"
sBPath = a.Path
sHTML = sHTML & a.Path
sHTML = sHTML & "<br /></td></tr>"
Next
sHTML = sHTML & "</table>"
Document.getElementById("DivList").innerHTML = sHTML
For Each b In c_folder
sHTML = sHTML & "<tr><td>"
sBPath = b.Path
sBPath = Replace(sBPath, " ", "*")
sBPath = Replace(sBPath, "\", "\\")
sHTML = sHTML & "<a href=# onclick=vbs:List(""" & sBPath & """)>" & b.Path & "</a>"
sHTML = sHTML & "<br /></td></tr>"
Next
sHTML = sHTML & "</table>"
Document.getElementById("DivList").innerHTML = sHTML
End Sub
strComputer = "."
Set wbemServices = Getobject("winmgmts:\\" & strComputer)
Set wbemObjectSet=wbemServices.execquery("select name from Win32_PerfRawData_PerfDisk_LogicalDisk")
For Each mo In wbemObjectSet
if InstrRev(mo.name,":", -1, 0)>0 then
document.write "<input type=button value="&mo.name&" onclick=list('"&mo.name&"\"&"')>"
end if
Next
</script>
</body>
</html>

赞 (0)

相关推荐

  • hta(vbs)列目录树代码

    复制代码 代码如下: <html> <head> <title>磁盘管理器</title> </head> <body> <div id="DivList"></div> <script language="vbscript"> Sub List(sPath) sPath = Replace(sPath, "*", " "

  • 使用ASP实现网站的“目录树”管理的代码

    使用ASP实现网站的目录树 数据库结构(共使用了两个表)1.tblCategory字段名  类型   Root   binary   说明树关或开(目录的根)ID     自动编号 关键字Sort   integer  识别该字段内容的整数(如果root是开状态sort为0)表示显示的目录的顺序Name   text(255)可以包含html中的标识符HREF   text(255) 允许空 2.tblPagesID   自动编号 Sort  integer 关键字Name  text(255)

  • Angular directive递归实现目录树结构代码实例

    Angular directive递归实现目录树结构代码实例

    整理文档,搜刮出一个Angular directive递归实现目录树结构代码实例代码,稍微整理精简一下做下分享. 效果图: 重点: 1. 整棵目录树的实现,通过嵌套完成,主要在于对treeItem.html的递归使用 <script type="text/ng-template" id="treeView.html"> <ul> <li ng-repeat="item in treeData.children" ng

  • dhtmlxTree目录树增加右键菜单以及拖拽排序的实现方法

    dhtmlxTree目录树增加右键菜单以及拖拽排序的实现方法

    在以前的一个公司内部管理系统(InnerOA)中,对于目录树的构造我采用的是dTree,实现无限级目录显示及右键菜单功能(右键菜单中包括:新建.修改.共享.删除.刷新等功能,如下图所示) 关于公司内部管理系统(InnerOA)中目录树的一些知识以后有时间将整理并提供源码. 但是dTree唯一遗憾的是不支持拖拽排序功能,这让我在完成InnerOA之后心里一直纠结的问题.在网上查看关于目录树的一些内容,dTree是我目前认为最符合我项目的一个.在一个偶然机会,发现了另一个强大的目录树,也就是本文所说

  • 深入linux下遍历目录树的方法总结分析

    前几天需要实现对整个目录树的遍历,查阅了相关的一些资料.开始找到的原始的方法是使用readdir()与lstat()函数实现递归遍历,后来发现linux对于目录遍历这种最常用的操作已经提供了很完善的接口:ftw()与nftw().下面就这两种方法具体说明一下.1.手动实现递归1.1 stat()函数族stat函数族包括:stat,fstat以及lstat函数,都是向用户返回文件的属性信息(元数据). 复制代码 代码如下: view plaincopy to clipboardprint?#inc

  • jQuery仿写百度百科的目录树

    jQuery仿写百度百科的目录树

    一.首先来看一下需求(截图为百度百科"医保"词条): 1.点击右侧的目录树,左侧跳转到指定的锚点位置: 2.滚动鼠标,游标跟随一起滚动至响应链接位置 二.实现思路 1.针对第一个需求,只需要设置游标所在div和右侧列表div的position为fixed,根据浏览器窗口定位,然后给左侧文章各区块增加id,为右侧列表每一项增加对应的href属性指向响应的锚点即可: 2.针对第二个需求,定义鼠标的滚动事件mousewheel(在ff下事件为DOMMouseScroll),当时自己琢磨了半天

  • BootStrap实现树形目录组件代码详解

    BootStrap实现树形目录组件代码详解

    需求描述 产品添加页面,需要选择车型.在bootStrap的modal上弹出子modal来使用. 车型一共有4级目录.要使用目录树. 然后分活动和商品两种,需要能够通过不通参数来调用该组件. 车型品牌要使用字母导航. 技术实现 数据都是后端传json过来,我们ajax获取然后操作. 由于车型总数据有几万条以上,不可能一次性请求过来.这里我们使用异步的方式,每点击一次目录节点,加载它的下一级. 这里我们用两个参数来控制活动和商品的不同加载._showPrice和opened 后端传过来的第一级数据

  • Linux管理员手册(2)--目录树概述

    本章说明标准Linux目录树的重要部分,基于FSSTND文件系统标准.概述根据不同的目的和给定的要求将目录树分为若干分离的文件系统的一般方法.也说明一些其他方法. 背景 本章松散地基于Linux文件系统标准FSSTND版本1.2(见参考书目[Qui95]),它意图建立一个如何组织Linux系统目录树的标准.这样一个标准具有易于写或port(移植?)Linux软件.管理Linux系统的优点,因为所有东西都将在他们的一般地方.此标准没有强制所有人遵从的权威,但它有最多的Linux distribut

  • C#简单实现表达式目录树（Expression）

    C#简单实现表达式目录树（Expression）

    1.什么是表达式目录树 :简单的说是一种语法树,或者说是一种数据结构(Expression) 2.用Lambda声明表达式目录树: Expression<Func<int, int, int>> exp = (n, m) => n * m + 2; //表达试目录树的方法体只能是一行,不能有大括号.比如: //Expression<Func<int, int, int>> exp1 = (m, n) => // { // return m * n

  • 使用python生成目录树

    这是一个使用Python生成文件.目录树的程序,其中遇到一个问题是:如何确定某个目录下的某一文件是最后一个遍历的文件.因为最后一个遍历的文件前应添加"└─",非最后一个文件前添加"├─".看了Python的API文档没有找到相关的系统函数.现在做法是:先统计出某个目录下的文件个数,在遍历目录时,当个数相等时,就可以确定该目录遍历结束. # encoding: utf-8 import os class dir(object): def __init__(self):

随机推荐