根據 HZYSoft 的版本，我將他做些許更改，給成能直接放在WEB上的版本～
超連結使用了相對路徑，所以不能把檔案和清單檔分開放了喔
下載位置：
http://www.friendlyshare.de/files/0Drag_to_me.vbs
直接把資料夾拖曳到.vbs檔上面就行了喔～
=====================檔案開始===============================
Set fs = CreateObject( "Scripting.FileSystemObject" )
Set folder = fs.GetFolder( WScript.Arguments(0) )
dpath = WScript.Arguments(0)
fpath = dpath & "\List.html"
Set out = fs.CreateTextFile( fpath )
out.WriteLine("<html>")
out.WriteLine("<head>")
（請不要把我貼進去，下面是一行↓↓）
out.WriteLine("<html><meta http-equiv=Content-Type
content=""text/html charset=big5"">")
（請不要把我貼進去，上面是一行↑↑）
out.WriteLine("</head>")
out.WriteLine("<body>")
（//請不要把我貼進去，下面是一行↓↓）
out.WriteLine("在 <a href=""" & "List.html"">""" & dpath
& """</a> 的檔案結構<br><hr>")
（//請不要把我貼進去，上面是一行↑↑）
out.WriteLine("目錄：<br>")
Set content = folder.SubFolders
For Each file in content
（請不要把我貼進去，下面是一行↓↓）
out.WriteLine( "<a href=" & """" & file.name & """" & ">" &
file.name & "</a><br>" )
（//請不要把我貼進去，上面是一行↑↑）
Next
out.WriteLine("<hr>檔案：<br>")
Set content = folder.Files
For Each file in content
（請不要把我貼進去，下面是一行↓↓）
out.WriteLine( "<a href=" & """" & file.name & """" & ">" &
file.name &
"</a><br>" )
（//請不要把我貼進去，上面是一行↑↑）
Next
out.WriteLine("</body></html>")
out.Close
preview=MsgBox("是否預覽結果？（會啟動瀏覽器～）",4,"預覽")
If Preview = 6 then
Set sh = WScript.CreateObject("WScript.Shell")
sh.Exec "C:\Program Files\Internet Explorer\iexplore.exe" & " " & fpath
End If
=========================檔案結束==========================
敬請指教~
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.105.93.65