Re: [請益] 請問有沒有這種軟體 將檔案輸出成清單？
※ 引述《DTZ (棉花糖 吃吃吃)》之銘言：
: 請問有沒有這種軟體？
: 可以將一個資料夾裡面的檔案輸出成excel或是word的清單
: 清單內容可以有
: 「檔案名稱」
: 「路徑」（一點就可以連結）
: 「修改時間」（或建立時間）
: 之類的
: 比如我有一個檔案夾都是歌，或是影片，
: 可以把這個檔案夾裡所有的檔案都變成一個清單，列表出來嗎？
: 最好是有路徑啦......可以直接點
: 請問有這種軟體嗎？
剛剛寫了一個 WSH (Windows Host Script)
分隔線以下的存成一個文字檔 取名 filelist.vbs 然後滑鼠雙擊就可以了。
存好的檔案列表叫做 FileList.csv 不喜歡可以自己改程式碼
可以直接用 Excel 匯入 csv 或是 直接開啟 應該就會照欄位排好了～
寫得很陽春 能用就好 ^^
如果防毒軟體說是病毒，別擔心，就讓他執行吧。版上眾多大大可證明不是病毒。
'-------------------------------------------------------------------------
'開啟瀏覽資料夾畫面，選擇資料夾
dim oShell
dim oFolder
dim oFolderItem
set oShell = CreateObject("Shell.Application")
set oFolder = oShell.BrowseForFolder(0, "選擇你要列出清單的資料夾", 0)
set oFolderItem = oFolder.Items.Item
'開啟文字檔物件，並將資料夾內檔案名稱 路徑 時間寫入
dim objFSO
dim objTXT
dim fileItem
set objFSO = CreateObject("Scripting.FileSystemObject")
set objTXT = objFSO.CreateTextFile(oFolderItem.Path & "\FileList.csv")
objTXT.WriteLine("檔案名稱,路徑,修改時間")
For each fileItem in oFolder.Items
'Wscript.echo fileItem.name _
objTXT.WriteLine(fileItem.name & "," & fileItem.Path & "," _
& fileItem.ModifyDate)
Next
objTXT.Close
Wscript.echo oFolderItem.Path & "\FileList.csv 已建立."
'---------------------------------------------------------------------------
--
牽手時,試著鬆手,讓對方自由;
分手時,學著放手,讓愛自由 。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 124.8.5.143
→
05/03 14:48, , 1F
05/03 14:48, 1F
※ 編輯: meteorboy 來自: 124.8.5.143 (05/03 14:50)
→
05/03 15:03, , 2F
05/03 15:03, 2F
→
05/03 15:03, , 3F
05/03 15:03, 3F
推
05/03 15:10, , 4F
05/03 15:10, 4F
推
05/03 15:12, , 5F
05/03 15:12, 5F
推
05/04 01:56, , 6F
05/04 01:56, 6F
討論串 (同標題文章)
完整討論串 (本文為第 1 之 7 篇)：