工大后院

 找回密码
 加入后院

扫一扫,访问微社区

QQ登录

只需一步,快速开始

搜索
查看: 2977|回复: 2

[Windows Script 编程之三]文件操作

[复制链接]
发表于 2006-5-20 16:54 | 显示全部楼层 |阅读模式
原来Windows Script也很少人玩,可是有时候还是很好玩的。
下面代码对文件的操作是比较基本的,Windows Script 可以完成的功能远不止如此。


  1. /*
  2. **@Author:PowerWind
  3. **@Date:2006-5-20
  4. **file name: FileOperation.js
  5. */
  6. var FSO = new ActiveXObject("Scripting.FileSystemObject");

  7. //文件夹操作

  8. //选新建一个文件夹
  9. function CreateFolder(folder)
  10. {
  11.         FSO.CreateFolder(folder);
  12. }
  13. //获取文件夹信息
  14. function FolderInfo(folder)
  15. {
  16.         var str="";
  17.         var f=FSO.GetFolder(folder);
  18.         str+="\n目录名:"+f.name;
  19.         str+="\n目录下文件数:"+f.Files.Count;
  20.         str+="\n子目录数:"+f.SubFolders.Count;
  21.         str+="\n该目录占字节数:"+(f.size/1024);
  22.         str+="\n最后修改时间:"+f.DateLastModified;
  23.         return str;
  24. }
  25. //copy文件夹
  26. function CopyFolder(src,dest,overwrite)
  27. {
  28.         FSO.CopyFolder(src,dest,overwrite);
  29. }
  30. //删除文件夹
  31. function DeleteFolder(folder)
  32. {
  33.         FSO.DeleteFile(folder);
  34. }

  35. //文件操作
  36. //在文件夹内新建一个文件
  37. function CreateFile(filename)
  38. {
  39.         FSO.CreateTextFile(filename);
  40. }
  41. //打开文件,写入一行字
  42. function WriteToFile(filename,content)
  43. {
  44.         var append=8;
  45.         var f=FSO.OpenTextFile(filename,append,true);
  46.         f.WriteLine(content);
  47. }
  48. //读文件
  49. function ReadFromFile(filename,content)
  50. {
  51.         var f=FSO.OpenTextFile(filename);
  52.         return f.ReadAll();
  53. }
  54. //获取文件信息
  55. function FileInfo(file)
  56. {
  57.         var ff=FSO.GetFile(file);
  58.         var info="";
  59.         info+="\n文件类型:"+ff.Type;
  60.         info+="\n文件大小:"+ff.size/1024+"kb";
  61.         info+="\n最后修改时间:"+ff.DateLastAccessed;
  62.         return info;
  63. }
  64. //copy文件
  65. function CopyFile(src,dest,overwrite)
  66. {
  67.         FSO.CopyFile(src,dest,overwrite);
  68. }
  69. //重命名文件
  70. function RenameFile(src,dest)
  71. {
  72.         FSO.MoveFile(src,dest);
  73. }
  74. //删除文件夹
  75. function DeleteFolder(filename)
  76. {
  77.         FSO.DeleteFolder(filename);
  78. }

  79. var folder="c:\\test";
  80. var filename="c:\\test\\test.txt";
  81. var content="写入一行,测试一下";

  82. CreateFolder(folder);
  83. CreateFile(filename);
  84. WriteToFile(filename,content);
  85. WScript.echo(ReadFromFile(filename));
  86. //WScript.echo(FileInfo(filename));
  87. //WScript.echo(FolderInfo(folder));
  88. //DeleteFolder(folder);
复制代码
发表于 2006-5-23 23:49 | 显示全部楼层
powerpoint写一个树形显式文件夹内容的出来吧。
回复

使用道具 举报

 楼主| 发表于 2006-5-24 12:47 | 显示全部楼层
这个算不算?


  1. function showFolder(folder)
  2. {
  3.         var handle = 0;
  4.         var option = 0;
  5.         var title="Jscript做的文件夹浏览对话框";
  6.         var appShell = new ActiveXObject("Shell.Application");
  7.         var objFolder = appShell.BrowseForFolder(handle,title, option, folder);
  8. }
  9. showFolder("C:\\Windows");
复制代码
未命名.jpg
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 加入后院

本版积分规则

QQ|Archiver|手机版|小黑屋|广告业务Q|工大后院 ( 粤ICP备10013660号 )

GMT+8, 2024-5-4 03:00

Powered by Discuz! X3.5

Copyright © 2001-2024 Tencent Cloud.

快速回复 返回顶部 返回列表