程序博客网 > 淘宝网床上用品

javascript 实现压缩文件夹

来源：互联网发布：淘宝网床上用品编辑：程序博客网时间：2024/05/21 17:40

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<script language="javascript" type="text/javascript">
var isShow=0;
var isShowMax=0;
var tbsource = "./1";//本地文件夹路径
var hdfiles = "";
var objFSO =new ActiveXObject('Scripting.FileSystemObject');
if(!objFSO.FolderExists(tbsource))
{
alert("<"+tbsource+">该文件夹路径不存在，或者路径不能含文件名！");
objFSO = null;
//return;
}
var objFolder = objFSO.GetFolder(tbsource);
var colFiles = new Enumerator(objFolder.Files);
var re_inf1 =/\.(gif|jpg|jpeg|bmp)$/i
var ImgName = new Array();　//创建一个数组

function Loadimg()
{
for (var i= 0; (!colFiles.atEnd())&&(i < 100); colFiles.moveNext(),i++) //读取文件夹下文件
{
  var objFile = colFiles.item();
  if(re_inf1.test(objFile.Name.toLowerCase()))
  {
   ImgName[i] = objFile.Name;
  }
  isShowMax = i;
}

}

function UpdateImgDown()
{
isShow++;
if(isShow > isShowMax) {
  isShow = 0;
}
document.getElementById('img1').src = "../1/" + ImgName[isShow];
}
function UpdateImgUp()
{
if(isShow > 0)
{
  isShow--;
}
else
{
  isShow = isShowMax;
}
document.getElementById('img1').src = "../1/" + ImgName[isShow];

}
function runRar(){
var winRar=new ActiveXObject("WScript.Shell");
var cmd="winrar a test.tar ./1 -r " ;
winRar.run(cmd,0,true); //0不显示界面，1显示界面
}
function savetxt(fileURL){
runRar();
var fileURL=window.open (fileURL,"_blank","height=0,width=0,toolbar=no,menubar=no,scrollbars=no,resizable=on,location=no,status=no");
fileURL.document.execCommand("SaveAs");
fileURL.window.close();
fileURL.close();
}
window.onload = function()
{
Loadimg();
document.getElementById('img1').src = "../1/" + ImgName[0];
}

</script>
</head>

<body>
<form id="form1" name="form1" method="post" action="">

<div id="showPic">

</div>

<table width="1105" height="229" border="1" align="center">
<tr align="center">
    <td colspan="2">
<label id="comid1">com1</label> </td>
    <td colspan="2"><label id="comid2">com2</label></td>
</tr>
<tr align="center">
    <td colspan="2"><label id="imgname1">name1</label></td>
    <td colspan="2"><label id="imgname2">name2</label></td>
</tr>
<tr align="center">
    <td colspan="2"><img src="" width="480" height="360" name="img1" border="0" id="img1"></td>
    <td colspan="2"><img src="" id="img2"></td>
</tr>
<tr align="center">
<td >
          <input type="button" name="Submit" value="上一张" onclick="UpdateImgUp()"/>
</td>
    <td><input type="button" name="Submit" value="下一张" onclick="UpdateImgDown()"/></td>
    <td><input type="button" name="Submit" value="上一张" /></td>
    <td><input type="button" name="Submit" value="下一张" /></td>
</tr>
<tr align="center">
    <td height="51" colspan="4"><input type="button" name="Submit" value="下载" onclick="savetxt('../test.tar')"/></td>
</tr>
</table>

</form>

</body>
</html>

0 0

淘宝网床上用品

淘宝网床上用品

原创粉丝点击

热门问题 老师的惩罚人脸识别我在镇武司摸鱼那些年重生之率土为王我在大康的咸鱼生活盘龙之生命进化天生仙种凡人之先天五行春回大明朝姑娘不必设防，我是瞎子开荒保洁什么意思保洁岗位职责我和楼道保洁大妈家庭保洁清理一次多少钱肉丝保洁大妈宾馆保洁半天班含羞忍辱保洁员保洁打扫一次多少钱保洁员招聘双休日保洁公司前景如何美洁家政保洁中心物业保洁工作流程物业保洁招聘天津保洁公司保定保洁公司南京保洁公司专业保洁公司家庭保洁小时工别墅保洁清洗开荒保洁什么时候做国贸保洁公司石景山保洁公司专业家庭保洁昆山保洁公司北京保洁招聘新房开荒保洁北京保洁公司石家庄保洁公司保洁服务价格表保洁怎么收费清洗保洁服务公司珠海保洁公司菏泽保洁公司外墙保洁清洗公司家庭保洁一次多少钱南昌保洁公司上海闵行保洁公司保洁公司名字洛阳保洁公司胶州保洁公司大型开荒保洁哪家好