怎样用VB创建文件夹？

在Text1里有一个绝对路径，判断是否存在这个文件夹。

存在则弹出对话框：文件已存在；不存在则依照路径新建文件夹并弹出对话框：创建完毕！

If Dir("D:\Program Files\AutoCAD 2006\Express\", vbDirectory) = "" Then '判断文件夹是否存在
MkDir ("D:\Program Files\AutoCAD 2006\Express\") '创建文件夹 msgbox ("创建完毕")
else msgbox("文件夹已在") endif

你说的很晕乎，最后的结果是怎样的？你再描述一下。
text1文件夹里面有什么？
text2文件夹里面有什么？
text3文件夹里面有什么？
你一个一个的说清了，让人理解了才能做啊。
text4里面的内容输出到哪个文件夹里面的哪个文件里？文件名叫什么？ text4.txt?还是什么？

'创建三个文件夹。
Private Sub Command1_Click()
Set fso = CreateObject("Scripting.filesystemobject")
fso.CreateFolder ("d:\text1")
fso.CreateFolder ("d:\text1\text2")
fso.CreateFolder ("d:\text1\text2\text3")
End Sub

'向文件text4.txt中写入字符串"text4"

Private Sub Command2_Click()
Open "d:\text1\text2\text3\text4.txt" For Output As #1 '打开文件以便输出
Print #1, "text4" '向文件text4.txt中写入字符串"text4"
Close #1
End Sub

我的这些代码满足你的要求吗？
你可以把相关的名称换成你需要的即可。你可以试试。我对你的问题还是有些晕乎。
这有两个难点，一、创建文件夹。二、创建文件，并如何往文件里写东西。
我的两个按钮都有功能了，你可以自己学习之后编辑自己需要的程序。
希望对你有帮助。

进入盤符 鼠标右键新建文件夹
DOS下 切换到需要创建文件夹的目录。输入 md 文件夹名 回车