高考问答恰同学少年的刘俊:VB6.0 关于open语句（新手请教）
来源：百度文库 编辑：高考问答 时间：2024/05/02 18:33:17
如果要在工程所在的文件夹中open一个TXT文件的语是不是：
open "1.txt" for output as #1
write #1,1
close #1
但为什么执行后并没有生成1.txt呢？
而在指定路径下却是可以:
open "D:\1.txt" for output as #1
write #1,1
close #1
就能在D盘下找到了。
难道是我把语句记错了？
open "1.txt" for output as #1
write #1,1
close #1
但为什么执行后并没有生成1.txt呢？
而在指定路径下却是可以:
open "D:\1.txt" for output as #1
write #1,1
close #1
就能在D盘下找到了。
难道是我把语句记错了？
Open App.Path + "\1.txt" For Output As #1
Print #1, "tabel=1"
Print #1, "tabel=2"
Print #1, "tabel=3"
Print #1, Now()
Close #1
就可以了！！！
楼上那么复杂干什么啊！
open getAppPath&"1.txt" for output as #1
write #1,"啦啦啦啦"
close #1
'加上这个函数
Function getAppPath()
dim p
p=app.path
p=replace(p,"/","\")
getAppPath=iif(vba.right$(p,1)="\",p,p&"\")
End Function