horrsion — Fri, 20 Aug 2010 04:37:00 GMT

删除以下目录下的�?cll文�g为扩展名的所有文�Ӟ��可以修改扩展名，删除对应的文�Ӟ��

C:\Documents and Settings\�pȝ��登陆名\Local Settings\Temp

下面是第一�U�方法，比较复杂�Q?/p>

<html>
    <script type="text/javascript">
  function test(){

      var WshShell =new ActiveXObject("WScript.Shell");
      //fso为FileSystemObject;
      //f为Folder对象;
      //fc��赋��gؓ(f��) Enumerator 对象的变量名
      //f1为File对象
      //s判断是否删除�Q�s=1表示删除成功
      var fso,f,fc,f1,s=0;
        fso = new ActiveXObject("Scripting.FileSystemObject");

        //�Ҏ(gu��)��指定路径中的文�g夹返回相应的 Folder 对象
        //WshShell.ExpandEnvironmentStrings("%USERNAME%")获取当前�pȝ��登陆用户�?/span>
       f = fso.GetFolder("c:\\Documents and Settings\\"+WshShell.ExpandEnvironmentStrings("%USERNAME%")+"\\Local Settings\\Temp");

       //�q�回一�?nbsp;Files 集合�Q�由指定文�g夹中包含的所�?nbsp;File 对象�l�成�Q�包括设�|�了隐藏和系�l�文件属性的文�g�?/span>
       fc = new Enumerator(f.files);

       //循环判断
       for (; !fc.atEnd(); fc.moveNext())
       {
           //如果为CLL 文�g
      if(fso.getFile(fc.item()).type=="CLL 文�g")
      {
          //�Ҏ(gu��)��指定的�\�?fc.item())中的文�g�q�回相应�?nbsp;File 对象�?/span>
          f1 = fso.GetFile(fc.item());
          //执行删除
          f1.Delete();
          //删除标记
          s=1;
      }
       }
       if(s==1){
           alert("删除成功");
       }else{
           alert(".cll文�g不存�?/span>");
       }
  }
  script>
    <body>
    <input value="��试" type="button" onclick="test();">
    body>
html>

下面是第二种�Ҏ(gu��)��Q?br />

<html>
    <body>
        <input value="��试" type="button" onclick="test();">
    body>
    <script type="text/javascript">
  function test(){

      var wshShell =new ActiveXObject("WScript.Shell");

      //username 存放登陆用户�?/span>
      var username = wshShell.ExpandEnvironmentStrings("%USERNAME%");

      //fso用来处理文�g和文件夹
        var fso = new ActiveXObject("Scripting.FileSystemObject");

        //path删除文�g的�\�?/span>
        var path = "c:\\Documents and Settings\\"+username+"\\Local Settings\\Temp";

        //如果指定的文件夹存在则返�?nbsp;True �Q�否则返�?nbsp;False
        if(fso.FolderExists(path))
        {
            try{
                fso.DeleteFile(path+"\\*.cll");
                alert("删除成功�Q?/span>");
            }catch(e){
                 alert(".CLL" + e.message);
            }

        }else
            {
                alert("不存在这个目录：(x��)"+path);
            }
        }
  script>
html>

要运行上�q�脚本，需要放宽IE的权�?nbsp;
需要下面选项内容
工具>Internet选项>安全>Internet>自定义��?gt;ActiveX控�g和插�?gt;�Ҏ(gu��)��有标��Cؓ(f��)安全的ActiveX控�g�q�行初始化和脚本�q�行

讄��为启�q?br />
//获取计算机名
var   wsh=new   ActiveXObject("WScript.Network");
alert(wsh.ComputerName);

有什么不对的地方大家评论下吧

horrsion 2010-08-20 12:37 发表评论

亚洲蜜臀av乱码久久精品,欧美国产精品人人做人人爱,一本一本久久a久久精品牛牛影视