vb如何创建多个文件夹？
例如点command1按钮，会在当前目录建立temp目录，下面含有30个子目录，目录1，目录2一直到目录30？
本人新手，请高手贴源码，我会加分的！谢了。

谢谢，第一个代码虽然效率不高，但代码精简，我喜欢。我代表党和人民感谢你。

为什么不能这样写？
Dim i As Byte
For i = 1 To 30
MkDir " & App.Path & " \ temp \ " & Trim(CStr(i))"
Next

你留个QQ号吧。我还有很多不明呢。

谢谢楼上的，你太了不起了。