中国DOS联盟

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 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
next
msgbox "已经将所所有文件按类型分类。",48+4096,"操作成功"

[ Last edited by jmz573515 on 2006-12-15 at 08:17 AM ]

不错～

不知bat做出来怎样。大家试试：

for %%i in (*) do (

md %%~xi文件>nul 2>nul

move *%%~xi %%~xi文件)

　　以下代码能实现和顶楼的vbs代码同样的功能。有所区别的是，不会移动自身：

@echo off

title 文件归类整理器



:: 目的：

::

:: 　　对当前目录下的不同文件进行归类操作(不处理子目录)

::

:: 2006-12-16 修改了一处错误



for /f "delims=" %%i in ('dir /a-d /b /oe') do (

    set "nx_name=%%~nxi"

    call :build_dir %%~xi

    set file_type=%%~xi



)

goto :eof



rem ======= 按文件类型创建文件夹 =======

:build_dir

set types=%1

set types=%types:~1%



:: 判断要处理的文件是不是批处理自身

if "%nx_name%"=="%~nx0" (set file_self=yes&set file_type=) else set file_self=



:: 判断文件类型是否发生了变化

if "%file_type%"=="%1" (set same_type=yes) else set same_type=



if not defined file_self if not defined same_type md %types%文件 2>nul

if not defined file_self move /-y "%nx_name%" %types%文件

goto :eof

　　能处理子目录的代码请点 这里 查看。

[ Last edited by namejm on 2006-12-16 at 10:57 AM ]

版主这个好！
它会保留自身，不进入.bat文件夹。

欣赏～～

****以下是可以保留自身的VBS。
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,"操作成功"

好啊。现在受限，回头给你加分。

我说到做到^_^ 灌水～～

这个不错,不知兄们能否做个可以根据MP3位速来归类的VBS呢...

做记号

‘按类型整理文件VBS版（包含子目录），整理后原文件还在，详细请看注释。

Const WINDOW_HANDLE = 0
Const OPTIONS = &H10&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
(WINDOW_HANDLE, "请选择你要整理的文件夹:", OPTIONS, ".")
If objFolder Is Nothing Then
Wscript.Quit
End If
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path
search(objpath)
sub search(folder)
set fso=createobject("scripting.filesystemobject")
on error resume next
set folder=fso.getfolder(folder)
set files=folder.files
for each file in files
if file.name<>wscript.scriptname then
if fso.folderexists(fso.GetExtensionName(file) & "文件") then
fso.copyfile file, fso.GetExtensionName(file) & "文件\" '为了安全起见此处我用的复制(copyfile)没有剪切(movefile)，如果想移动文件可以自行更改。
else
fso.createfolder (fso.GetExtensionName(file) & "文件")
fso.copyfile file, fso.GetExtensionName(file) & "文件\" '为了安全起见此处我用的复制(copyfile)没有剪切(movefile)，如果想移动文件可以自行更改。
end if
else
end if
next
set subfolders=folder.subfolders
for each subfolder in subfolders
search(subfolder)
next
end sub
msgbox "已经将" & "【" & objpath & "】下所有文件按类型分类。",48+4096,"操作成功"

[ Last edited by jmz573515 on 2006-12-16 at 11:13 AM ]

呵呵，两位原来在比擂啊。
jmz573515兄，提个小意见，窗口停顿时间太短，来不及操作。