Re: [請益] 請問有沒有這種軟體 將檔案輸出成清單？

[meteorboy (閃亮亮DJ)]

※ 引述《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
→ meteorboy:我自己測試是可以用低
※ 編輯: meteorboy       來自: 124.8.5.143          (05/03 14:50)
→ meteorboy:試用發現如果資料夾選桌面不行耶= =
→ harry:推，回家小弟來測試看看！
推 DTZ:謝謝你阿  我試試看呢
推 meteorboy:如果不行的話去裝個 Windows Script Host 5.6 應該就行