→ 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
> -------------------------------------------------------------------------- <
作者: hirokofan (笠原弘子 命！) 看板: EZsoft
標題: Re: [請益] 請問有沒有這種軟體 將檔案輸出成清單？
時間: Fri May 4 19:51:49 2007
貼的時候要注意....
※ 引述《HZYSoft (PCMan 2004)》之銘言：
: 用 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 檔，寫好讓人匯入即可
: 其實可以玩的花樣還滿多的 :)
--
說了一堆漂亮（噁心）的話，都是為了騙HIT數....
HC的違章建築
http://hirokofan.myweb.hinet.net/
能騙多少次，就騙多少次
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.113.217.94
推 JCeel:XD 囧囧囧 05/04 19:56
→ JCeel:錯誤:行2有1字元,陣列索引出範圍. 囧 05/04 19:57
推 HZYSoft:樓上的，請看使用說明，把資料夾拖曳到 vbs 檔案上放掉 05/04 23:02
推 JCeel:原來...THX! 05/05 00:58