VB怎样才能新建一个文件夹并在该文件夹下新建一个文件
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