Re: [請問] 100G檔案自動分類

[holucanxp (昇龍蝦)]

嗯，依照其副檔名自行分類嗎？是否為
*.ini→[ini文件]資料夾、*.mp3→[mp3文件]資料夾…
────────────────────
on error resume next
Set WshShell = WScript.CreateObject("WScript.Shell")
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(WshShell.CurrentDirectory)
set files=folder.files ' 當前目錄的所有文件集合
for each file in files
if file.name<>wscript.scriptname then
if fso.folderexists(fso.GetExtensionName(file) & "文件") then
fso.movefile file, fso.GetExtensionName(file) & "文件\"
else
fso.createfolder (fso.GetExtensionName(file) & "文件")
fso.movefile file, fso.GetExtensionName(file) & "文件\"
end if
else
end if
next
msgbox "已經將所有文件按類型分類。",48+4096,"操作成功"
────────────────────
PS：存成.vbs的檔案，放置於你欲動作的目錄或根目錄下然後執行它即可，
但請小心使用哦！
※ 引述《xup654vu06 (陽光多多豆漿)》之銘言：
: 剛用救援軟體
: 將硬碟內的資料就回
: 雜七雜八的有近100G 93萬筆檔案在同一個資料夾
: 因為檔案量龐大
: 我要各門別類做分類
: 根本動彈不得
: 光移檔或是刪檔連跑都跑不太動
: 有什麼樣的小軟體
: 能夠幫我做到根據副檔名自行分類
: 自行歸類同一個資料夾
: AMD 9750
: 威剛DDR 800 4G
: 技嘉MA78GPM-DS2H

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.171.174.34
推 dennistsao:推推~剛測試過~好方便喔~全部的副檔名會自動分配!
※ 編輯: holucanxp       來自: 118.171.174.34       (01/05 15:45)
推 kslman:會寫程式的男人好帥
推 handlee:厲害︿︿ 請小心使用
推 thitbbeb:不知有沒有辦法~產生資料夾檔案清單，並產生自定內容？
→ thitbbeb:例如想要將清單加入html語法變成網頁連結之類的可自定的
推 is1128:好帥....
→ holucanxp:thit兄，您好，產生資料夾檔案清單、自定內容…感覺工程
→ holucanxp:不小，小弟功力不夠、又懶，看是否有高手補全，或者可以
→ holucanxp:配合 z16→11～14來使用唄 囧>