我记得我写这个程序的时候Apple 好像还没出iPad.. 拷贝代码保存为iPad.hta 双击便可运行,切忌只能在win 平台上 。
<html>
<hta:application
windowstate="maximize"
>
<head>
<style type="text/css">
h1{color:blue;font-size:30pt;text-align:center}
body{background:silver}
#fileListBox{background:lightblue}
#output{position:relatvie;left:300;top:80}
#output{background:gray}
.selectBox{width:120px}
</style>
<title>iPad</title>
<script language="javascript">
var FSO=new ActiveXObject("Scripting.filesystemobject");
var SHELL=new ActiveXObject("Wscript.shell");
var haveSuchFile=false;
function Dir_Trigger(){
var oFolder=document.getElementById('dir').value;
var oExt=document.getElementById('ext').value;
if(oFolder==""||ext==""){
alert("Complete the info !" );
return false;
}
if(!FSO.FolderExists(oFolder)){
alert("No such Folder: \""+oFolder+"\"");
return false;
}
getFileList(oFolder,oExt);
}
function getFileList(oFolder,oExt){
if(document.getElementById('allFiles').checked){
//alert("checked!");
getAllFiles(oFolder);
return true;
}
try{
var count=0;
var oExt=oExt.toLowerCase();
var files=new Enumerator(FSO.GetFolder(oFolder).files);
var strHTML="<select id='fileListBox' multiple size=35 onchange='openTXTFile(this)'>";
while(!files.atEnd()){
var file=files.item();
var ext=FSO.GetExtensionName(file).toLowerCase();
if(ext==oExt){
haveSuchFile=true;
strHTML+="<option>"+file+"</option>";
}
files.moveNext();
}
}catch(e){}
if(!haveSuchFile){
alert("No this kind of file in "+"\""+oFolder+"\"");
return false;
}
document.getElementById('span1').innerHTML=strHTML;
}
function getAllFiles(oFolder){
var files=new Enumerator(FSO.GetFolder(oFolder).files);
var strHTML="<select id='fileListBox' multiple size=35 onchange='openTXTFile(this)'>";
while(!files.atEnd()){
var file=files.item();
strHTML+="<option>"+file+"</option>";
files.moveNext();
}
document.getElementById('span1').innerHTML=strHTML;
}
function openTXTFile(oListForm){
//alert("entering openTEXTFile");
//document.getElementById('toolbox').disabled=false;
var fileName=oListForm.options[oListForm.selectedIndex].text;
var selectedFile=fileName;
//alert(selectedFile);
var strHTML="<textarea id='output' cols=100 rows=35 onselect='this.focus()'>";
var openFile=FSO.OpenTextFile(fileName,1);
while(!openFile.AtEndOfStream){
strHTML+=openFile.ReadLine()+"\n";
}
strHTML+="</textarea>";
document.getElementById('span2').innerHTML=strHTML;
//alert("End of openTEXTFile");
}
function disableTEXT(){
if(document.getElementById('allFiles').checked){
document.getElementById('ext').style.visibility="hidden";
}else{
document.getElementById('ext').style.visibility="visible";
}
}
</script>
</head>
<body>
<pre>
<fieldset>
<legend class="font">iBoard</legend>
<center>Directory: <input type="text" value="" id="dir" size=30> Extension: <input type="text" size="4" value="" id="ext"><input type="checkbox" id="allFiles" onclick="disableTEXT()">ALL</input> <input type="button" value="Start" id="btn" onclick="Dir_Trigger()"> </center>
</fieldset>
</pre>
<pre>
<span id="span1"></span><span id="span2"></span>
</pre>
</body>
</html>