作者HZYSoft (PCMan 2004)
看板EZsoft
标题Re: [请益] 请问有没有这种软体 将档案输出成清单？
时间Fri May 4 19:18:32 2007
用 script 就可以做的事情，不用出动 120 kb 的大软体
请将以下程式码贴上到记事本，存档，类型选「所有档案」，命名为 file_list.vbs
--------------------------档案开始---------------------------
Set fs = CreateObject( "Scripting.FileSystemObject" )
Set folder = fs.GetFolder( WScript.Arguments(0) )
dpath = WScript.Arguments(0)
fpath = dpath & "\file_list.html"
Set out = fs.CreateTextFile( fpath )
out.WriteLine("<html><body>")
Set content = folder.SubFolders
For Each file in content
out.WriteLine( "<a href=" & chr(34) & "file:///" & dpath & "/" & file.name &
chr(34) & "target=_blank>" & file.name & "</a><br />" )
Next
Set content = folder.Files
For Each file in content
out.WriteLine( "<a href=" & chr(34) & "file:///" & dpath & "/" & file.name &
chr(34) & ">" & file.name & "</a><br />" )
Next
out.WriteLine("</body></html>")
out.Close
Set sh = WScript.CreateObject("WScript.Shell")
sh.Exec "C:\Program Files\Internet Explorer\iexplore.exe" & " " & fpath
------------------------- 档案结束 --------------------------
使用方式，把你要列出内容的资料夹，拖曳到 file_list.vbs 上面放开
没意外的话，接下来就会在浏览器里面看到这些档案的列表，并且可以点选
执行本程式会使得该资料夹下出现 file_list.html 这个档案
这个方式并不好，其实这个小程式还有不少改良的空间
例如输出的 html 档案应该可以写入到使用者的暂存目录
显示方式还可以在改善，或是可以连目录下所有子目录的档案一起列出
这些都只需要简单增加几行程式码，应该就可以完成，留给有兴趣的朋友去改。
有兴趣的人欢迎扩充 :)
还可以加上 regedit 调整资料夹的档案关联设定
这样可以在资料夹的右键选单加入「输出档案列表」的选项
点选後就可以呼叫本程式，这个也留给有兴趣的朋友去扩充，其实都很简单
只需要提供一个 reg 档，写好让人汇入即可
其实可以玩的花样还满多的 :)
--
个人网页：
http://pcman.sayya.org/ 上面有自画像及各种联络资讯
PCMan 全系列 BBS 连线软体
http://pcman.ptt.cc/ http://pcmanx.csie.net/
新酷音输入法 for Windows
http://chewing.csie.net/
IE Tab Firefox plugin/extension
http://ietab.mozdev.org/
PCMan 油画作品集：
http://www.wretch.cc/album/album.php?id=pcman&book=1
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 163.29.223.14
1F：→ HZYSoft:行尾有 \ 的那个是一行太长，被 ptt 强迫断行 05/04 19:20
2F：→ HZYSoft:看有没有好心人存一份放在网路上给人下载好了 XD 05/04 19:21
3F：推 JCeel:Thank you! ^^ 05/04 19:21
4F：→ HZYSoft:可以玩玩看，其实 vb script 在系统上还满实用的 05/04 19:22
5F：推 puregon:推～ 请问有没有 vbscript 速查手册呀？ 感谢 05/04 19:36
6F：推 hirokofan:那三行其实是一行....>_< 05/04 19:46
7F：→ chi828:LS - 档案列表工具 绿色工厂有 05/04 21:23