Question

vb自动生成并打开文件夹

使用vb代码在MDI窗体菜单中单击打开，在指定路径生成指定文件夹 并在文件夹中自动生成一个指定的txt文件。关闭MDI窗体文件全部自动删除。
菜单我已经弄好了
Private Sub 打开_Click()
代码是什么？
End Sub

Answer 1

生成文件夹，就一句即可：

shell "cmd md " & 路径字串
再自动生成txt文件嘛，很多方法啦
也可以用
shell "echo 你要的文字内容 >> " & 文件全路径

比其他的都简单，删除也一样的一样调用即可

Answer 2

Private Sub MDIForm_Unload(Cancel As Integer)
If Dir("c:\123\123.txt") <> "" Then
Kill "c:\123\123.txt"
End If
If Dir("c:\123", vbDirectory) <> "" Then
RmDir "c:\123"
End If
End Sub

Private Sub 打开_Click()
If Dir("C:\123", vbDirectory) = "" Then
MkDir "c:\123"
End If
Open "c:\123\123.txt" For Output As #1
Print #1, "this is a test."
Close #1
End Sub

Answer 3

可以通过调用scripting.filesystemobject实现

追问

可以详细一点吗 可以的话发一下代码

追答

dim aa as scriptiing.filesystemobject
if not aa.FolderExist(需要的目录全路径) '判断目录是否已经有了

aa.CreateFolder(需要的目录全路径) '创建目录
end if

aa.CreateTextFile(filename,overwrite) '创建文本文件，文件名包含全路径，overwrite代表如果有同名文件是否覆盖

aa.DeleteFolder(folderspec,force) '删除制定的目录，force代表下面有只读文件也删除，但是有打开的文件不能删除，有打开的文件无论如何都不能删除，要先关闭文件。