vba的问题--如何把100个文本文件平均10个分在10个文件夹

如题。

假设一个文件夹内 有 100个文本文件。

要如何写VBA代码，能实现平均每10个文本一组分别分在10个文件夹里

这些文本文件的名字 全部是数字。

按数字的大小分

在该文件夹新建一Excel文件，打开该新Excel，按Alt+F11进入宏界面，点菜单的插入，模块，在新窗口粘贴如下代码：
Sub Find()
Dim MyDir, Match As String
Dim i As Integer
i = 1
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1)
ChDir MyDir
Match = Dir$("*.txt")
Do
If i Mod 10 = 1 Then MkDir "Txt" & Int((i - 1) / 10)
FileCopy Match, "Txt" & Int((i - 1) / 10) & "\" & Match
Kill Match
i = i + 1
Match = Dir$
Loop Until Len(Match) = 0
End Sub
在此界面直接按F5运行此宏，完成。