请教文件自动分类和移动问题

请问高手：想实现一个自己用的小功能“文件自动分类和移动”，根据一个指定文件夹（全部为同一类型文件）中的文件名前2个字，将相应的文件移动到相同名字的文件夹中，如何实现比较好？例如：在“歌曲”这个文件夹中，全部是mp3文件，如果文件名的前2个字是“摇滚”，就将该文件移动至“摇滚”文件夹中，其他同理。 --------------------编程问答-------------------- 学一下filesystemobject对象中的folder和file对象的用法就可以了。学习的网址：http://help.114la.com/javascript/html/jsobjFileSystem.htm

FileSystemObject 对象
提供对计算机文件系统的访问。

y = new ActiveXObject("Scripting.FileSystemObject")

说明
下面的代码演示了如何用 FileSystemObjext 返回可用于读或写的 TextStream 对象：

var fso = new ActiveXObject("Scripting.FileSystemObject");
var a = fso.CreateTextFile("c:\\testfile.txt", true);
a.WriteLine("This is a test.");
a.Close();
在该例子代码中，ActiveXObject 对象被赋给 FileSystemObject (fso)。随后 CreateTextFile 方法创建文件 TextStream 对象 (a)，并用 WriteLine 方法将一行文本写入创建的文本文件。Close 方法刷新缓冲区并关闭该文件。

CreateFolder 方法
创建文件夹。

object.CreateFolder(foldername)

参数
object

必选项。应为 FileSystemObject 的名称。

foldername

必选项。字符串表达式，标识所要创建的文件夹。

说明
如果指定的文件夹已经存在则出错。

下面的代码说明了如何使用 CreateFolder 方法来创建一个文件夹。

var fso = new ActiveXObject("Scripting.FileSystemObject");
var a = fso.CreateFolder("c:\\new folder");
MoveFile 方法
从一个位置向另一个位置移动一个或多个文件。

object.MoveFile ( source, destination );

参数
object

必选项。应为 FileSystemObject 的名称。

source

必选项。所要移动的文件的路径。 source 参数的字符串只能在路径的最后成分中包含通配字符。

destination

必选项。文件要移到的路径。 destination 参数不能包含通配字符。

说明
如果 source 包含了通配字符，或者 destination 以路径分隔符 (\) 结束，那么将假定 destination 指定了一个已有的文件夹，匹配的文件将移入其中。否则，将假定 destination 为需要创建的目的文件名。无论哪种情况，如果移动的是单个文件，将有三种可能：

如果 destination 不存在，那么那么文件将被移动。这是普通情况。
如果 destination 是已经存在了的文件，那么将出错。
如果 destination 是目录，那么也将出错。
如果 source 中使用的通配字符无法匹配任何文件，那么也将出错。 MoveFile 方法在遇到第一个错误时终止。出错后不会试图回滚任何出错前所做的修改。

重要  只有在操作系统支持时，才能通过这种方法在卷之间移动文件。

下面的例子说明了 MoveFile 方法的用法：

function MoveFile2Desktop(filespec)
{
   var fso;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   fso.MoveFile(filespec, "c:\\windows\\desktop\\");
}
--------------------编程问答-------------------- 不懂，up --------------------编程问答-------------------- 不懂，up --------------------编程问答-------------------- 有一个名为Pigeonhole的免费注册软件可以实现你的功能． --------------------编程问答-------------------- 批处理,0分题我靠

补充：VB ,  VBA