作者meteorboy (闪亮亮DJ)
看板EZsoft
标题Re: [请益] 请问有没有这种软体 将档案输出成清单？
时间Thu May 3 14:48:02 2007
※ 引述《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
1F：→ meteorboy:我自己测试是可以用低 05/03 14:48
※ 编辑: meteorboy 来自: 124.8.5.143 (05/03 14:50)
2F：→ meteorboy:试用发现如果资料夹选桌面不行耶= = 05/03 15:03
3F：→ harry:推，回家小弟来测试看看！ 05/03 15:03
4F：推 DTZ:谢谢你阿 我试试看呢 05/03 15:10
5F：推 meteorboy:如果不行的话去装个 Windows Script Host 5.6 应该就行 05/03 15:12
6F：推 Arton0306:推！ 05/04 01:56