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

[fire_whut]

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
都是可以的，但放在一起用就不成了，这是什么原因呢？
提示路径/文件访问错误

[我的昵称被占用]

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

[zdingyun]

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

[fire_whut]

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