作者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