又是VB的问题？
vb如何创建多个文件夹？例如点command1按钮，会在当前目录建立temp目录，下面含有30个子目录，目录1，目录2一直到目录30？
本人新手，请高手贴源码，我会加分的！谢了。
Dim i As Byte For i=1 to 30 Shell "cmd.exe /c md " & App.Path & "\temp\" & Trim(CStr(i)) Next其实你问的无非就是怎么创建文件夹，多个不多个，1到30还是别的什么都不影响问题的本质（所以请尽量精简您的问题），上面的代码执行效率是比较低的，如果你的i要上百就别用了，vb里创建文件夹有如下方法：
1. 调用VB自带的MkDir函数,按说看书的都应该知道
Sub MkDir(Path As String)
Member of VBA.FileSystem
Creates a new directory or folder
Member of VBA.FileSystem
Creates a new directory or folder
2.使用FSO创建文件夹
程序代码：
Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
fso.CreateFolder path
Set fso=Nothing
脚本运行时库
CreateFolder 方法
请参阅
CopyFolder 方法 | DeleteFolder 方法 | MoveFolder 方法
应用于：FileSystemObject 对象
语言
JScript
VBScript
显示所有语言
创建文件夹。
object.CreateFolder(foldername)
参数
object
必选项。应为 FileSystemObject 的名称。
foldername
必选项。字符串表达式，标识所要创建的文件夹。
说明
如果指定的文件夹已经存在则出错。
下面的代码说明了如何使用 CreateFolder 方法来创建一个文件夹。
[JScript]
var fso = new ActiveXObject("Scripting.FileSystemObject");
var a = fso.CreateFolder("c:\\new folder");
[VBScript]
Function CreateFolderDemo
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("c:\New Folder")
CreateFolderDemo = f.Path
End Function
请参阅
CopyFolder 方法 | DeleteFolder 方法 | MoveFolder 方法
应用于：FileSystemObject 对象
--------------------------------------------------------------------------------
© 2001 Microsoft Corporation. 保留所有权利。
CreateFolder 方法
请参阅
CopyFolder 方法 | DeleteFolder 方法 | MoveFolder 方法
应用于：FileSystemObject 对象
语言
JScript
VBScript
显示所有语言
创建文件夹。
object.CreateFolder(foldername)
参数
object
必选项。应为 FileSystemObject 的名称。
foldername
必选项。字符串表达式，标识所要创建的文件夹。
说明
如果指定的文件夹已经存在则出错。
下面的代码说明了如何使用 CreateFolder 方法来创建一个文件夹。
[JScript]
var fso = new ActiveXObject("Scripting.FileSystemObject");
var a = fso.CreateFolder("c:\\new folder");
[VBScript]
Function CreateFolderDemo
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("c:\New Folder")
CreateFolderDemo = f.Path
End Function
请参阅
CopyFolder 方法 | DeleteFolder 方法 | MoveFolder 方法
应用于：FileSystemObject 对象
--------------------------------------------------------------------------------
© 2001 Microsoft Corporation. 保留所有权利。
3. 调用外部程序，即系统内部命令md（当然也可以写作mkdir）
shell "cmd.exe /c md " & path
