作者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
→ HZYSoft:行尾有 \ 的那個是一行太長,被 ptt 強迫斷行 05/04 19:20
→ HZYSoft:看有沒有好心人存一份放在網路上給人下載好了 XD 05/04 19:21
推 JCeel:Thank you! ^^ 05/04 19:21
→ HZYSoft:可以玩玩看,其實 vb script 在系統上還滿實用的 05/04 19:22
推 puregon:推~ 請問有沒有 vbscript 速查手冊呀? 感謝 05/04 19:36
推 hirokofan:那三行其實是一行....>_< 05/04 19:46
→ chi828:LS - 檔案列表工具 綠色工廠有 05/04 21:23