标签归档:files

用VBScript和Javascript编写列出所有驱动器所有目录所有文件的资源管理器

<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<title>FileList with VBScript&Javascript</title>
<script type="text/vbscript">
on error resume next
 
Function Mappath(v)
 Mappath=fso.getAbsolutePathName(v)
End Function
 
Function getPath(style,path)
	pathlist="<select style=""float:left;"&style&""" ondblclick=""javascript:FileMan(this.value)"">"
	if path="" or not fso.folderexists(path) then
		pathlist=pathlist+"<option value="""">我的电脑</option>"
		for each xx in fso.drives
			pathlist=pathlist&"<option value="""&xx&""">"&xx&"\</option>"
		next
	else
		set fpo=fso.getfolder(path)
		'pathlist=pathlist&"<option value="""&path&""">当前目录==>"&path&"</option>"
		if len(path)>3 then
			pathlist=pathlist&"<option value="""&fpo.parentfolder&""">..</option>"
		else
			pathlist=pathlist&"<option value="""">我的电脑</option>"
		end if
		for each xx in fpo.subfolders
			if i=0 then x=" selected" else x=""
			i=1
			pathlist=pathlist&"<option value="""&xx&""" title="""&xx&""""&x&">"&xx&"</option>"
		next
		pathlist=pathlist&"</select><select style=""float:left;"&style&""" ondblclick=""javascript:openFile(this.value);"">"
		for each xx in fpo.files
			if i=0 then x=" selected" else x=""
			j=1
			pathlist=pathlist&"<option value="""&xx&""" title="""&xx&""""&x&">"&xx&"</option>"
		next
	end if
	pathlist=pathlist&"</select>"
	getPath=pathlist
End Function
 
Sub Loading
	FileMan("D:")
	DriversMan()
End Sub
 
function openFile(v)
	window.open v
end function
 
set fso=CreateObject("Scripting.FileSystemObject")
</script>
<script type="text/javascript">
function gettextarea(){
	ores=document.getElementById("res");
}
function getV(_id,ji){
	var sel=document.getElementsByTagName("select")[ji];
	sel.uid=_id;
	sel.onchange=function(){
		for(i=0;i<sel .options.length;i++){
			if(sel.options[i].selected!=""){
				document.getElementById(sel.uid).value=sel.options[i].value;
			}
		}
	}
}
function _ch(id){
	getV(id,1);
}
function _chf(id){
	getV(id,2);
}
function FileMan(Path){
	var oFm=document.getElementById("fileman");
	oFm.innerHTML=getPath("width:90%;\"  size=\"13",Path);
}
function DriversMan(){
	var oDm=document.getElementById("driversman");
	oDm.innerHTML=getPath("width:9%;\"  size=\"26","");
}
</script>
</sel></script></meta></head>
<body style="background:#D4D0C8;text-align:center" onload="Loading">
<div style="width:100%;height:100%">
	<div><span id="driversman"></span><span id="fileman"></span></div>
	<div>
		<input value="请点击选择目录" onclick="javascript:_ch(this.id);" id="__rst" readonly/>
		<input value="请点击选择目录"  onclick="javascript:_ch(this.id);" id="__res"  readonly/>
		<input value="请点击选择文件" onclick="javascript:_chf(this.id);" id="__rstf" readonly/>
		<input value="请点击选择文件"  onclick="javascript:_chf(this.id);" id="__resf"  readonly/>
		<input value="请点击选择目录" onclick="javascript:_ch(this.id);" id="__rst1" readonly/>
		<input value="请点击选择目录"  onclick="javascript:_ch(this.id);" id="__res1"  readonly/>
		<input value="请点击选择文件" onclick="javascript:_chf(this.id);" id="__rstf1" readonly/>
		<input value="请点击选择文件"  onclick="javascript:_chf(this.id);" id="__resf1"  readonly/>
		<input value="请点击选择目录" onclick="javascript:_ch(this.id);" id="__rst2" readonly/>
		<input value="请点击选择目录"  onclick="javascript:_ch(this.id);" id="__res2"  readonly/>
		<input value="请点击选择文件" onclick="javascript:_chf(this.id);" id="__rstf2" readonly/>
		<input value="请点击选择文件"  onclick="javascript:_chf(this.id);" id="__resf2"  readonly/>
	</div>
</div>
</body>
</html>

双击盘符目录打开该目录,双击文件可打开文件,点击下面的文本框,可以获取目录与文件名
程序比较简单,就不加注释了