用vb新建一个文件夹，名字由窗体里的text1.text属性决定，
如果目录下有相同名字的文件夹，则自动加一
这些功能我都实现了，现在的问题是，想在新建的文件夹下面再建一个文件夹
由于新建的文件夹名称是变化的，而且后面可能是 名称1 名称2
所以我想问下，代码怎么写
Dim fso As New FileSystemObject '建立文件系统对象
Dim n As Integer '文件序号
Private Sub Command1_Click()
For n = 0 To 11 '从0-11循环
If fso.FolderExists("D:\程序\" &text1.Text & Val(n)) Then '如果文件存在
'继续循环,也就是n+`
Else '如果不存在
fso.CreateFolder "D:\程序\" & text1.Text & Val(n) '建立文件
Exit For '跳出循环 '建立之后,跳出循环
End If '条件结束
Next '循环结束
MkDir "\程序\ ************\新建文件夹" 这中间的变量地址我就不会写了 ，请教一下各位怎么写.


把mkdir放到循环里面不就可以了？另，那个判断文件夹是否存在的if语句感觉有些别扭呢？你可以写若文件夹不存在则建文件夹，不必else了。