標題: Re: [請問] 100G檔案自動分類
時間: Mon Jan 5 15:04:33 2009
嗯，依照其副檔名自行分類嗎？是否為
*.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
[1;37m推 [33mdennistsao[m[33m:推推~剛測試過~好方便喔~全部的副檔名會自動分配! [m 01/05 15:37
※ 編輯: holucanxp 來自: 118.171.174.34 (01/05 15:45)
[1;37m推 [33mkslman[m[33m:會寫程式的男人好帥 [m 01/05 16:33
[1;37m推 [33mhandlee[m[33m:厲害︿︿ 請小心使用 [m 01/05 17:17
