VB怎样才能新建一个文件夹并在该文件夹下新建一个文件

Question

MkDir "E:\TGWORK\A1"
Open "E:\TGWORK\A1" For Output As #1
Print #1, "555555555"
Close #1
上面的是我的代码，只运行
MkDir "E:\TGWORK\A1"
或当A1存在时运行
Open "E:\TGWORK\A1" For Output As #1
Print #1, "555555555"
Close #1
都是可以的，但放在一起用就不成了，这是什么原因呢？
提示路径/文件访问错误

Answer 1

MkDir "E:\TGWORK\A1"  '表示在Tgwork下建立一个 A1的文件夹
Open "E:\TGWORK\A1" For Output As #1  '表示在Tgwork下建立一个 A1的文件;但是上面已建立一个A1的文件夹了,因此再建立一个相同的文件会出错.
Print #1, "555555555"
Close #1以上二个不是同的.更改为以下:
MkDir "E:\TGWORK\A1"  '建议一个A1的文件夹
Open "E:\TGWORK\A1\Data.txt" For Output As #1 '在A1文件夹下建立一个 data.txt的文件
Print #1, "555555555"
Close #1

Answer 2

    MkDir "E:\TGWORK"
    Open "E:\TGWORK\A1" For Output As #1
        Print #1, "555555555"
    Close #1

Answer 3

If Dir("E:\TGWORK\A1", vbDirectory) = "" Then
MkDir "E:\TGWORK\A1"
Else
End If
Open "E:\TGWORK\A1\A1.txt" For Output As #1 '在A1文件夹下建立一个 data.txt的文件
Print #1, "555555555"
Close #1