MkDir "temp"
Dim i As Integer
For i = 1 To 30
MkDir App.Path & "\temp\" & Trim(CStr(i))

谢谢高手的解答，确实很好，不过我要把三个文件同时复制到所建立的30个空文件夹中，代码又该如何写呢？

在循环体内加入FileCopy方法。具体代码自己思考。

楼上的做人不厚道，我要代码，不是要我去想也。。。我能想出来，我就不会问了。