标题:iPad 文本查看
作者:kimtaikee
日期:2011-06-16 23:30
内容:
我记得我写这个程序的时候Apple 好像还没出iPad.. 拷贝代码保存为iPad.hta 双击便可运行，切忌只能在win 平台上 。
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}
iPad
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);
 ..
#1 [longteng9 07-26 15:43]
学习了，很强大哦