VB建立文件夹和文件

你说的很晕乎，最后的结果是怎样的？你再描述一下。
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

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

Mkdir "d:\" & text1.text
Mkdir "d:\" & text1.text & "\" & text2.text
Mkdir "d:\" & text1.text & "\" & text2.text & "\" & text3.text
Open "d:\" & text1.text & "\" & text2.text & "\" & text3.text & "\123.text" for output as #1
Print #1, text4.text
Close #1