for…next循环如下：（在C盘根目录建立一个名字为1的文件夹，反复10次）Private Sub Command2_Click()
Dim i As Integer
For i = 1 To 10
Set fso = CreateObject("Scripting.filesystemobject")
fso.CreateFolder ("c:\1")
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024