Question

如何用VB创建和读取一个和原程序目录下的ZB文件夹里的txt文件

如何用VB创建和读取一个和原程序目录下的ZB文件夹里的txt文件。
比如我用VB在桌面生成了一个1.exe，然后按command2在1.exe所在的目录的ZB文件夹里创建一个1.txt
还有就是如何读取1.exe所在的目录的ZB文件夹里的1.txt的内容

Answer 1

Private Sub Command1_Click()
If Dir(App.Path & "\ZB", vbDirectory) = "" Then 'ZB文件夹是否存在
MkDir App.Path & "\ZB" '不存在就创建
End If
Open App.Path & "\ZB\1.txt" For Output As #1 '创建1.txt
Print #1, "Hello"
Close #1
End Sub

追问

我还有一个比较纠结的问题，比如我拿来写日记，我在text1那写好了内容，然后按钮保存，那样不就会替换了之前写好的1.txt了吗？

追答

Open App.Path & "\ZB\1.txt" For Output As #1 '创建1.txt，会把前面保存的抹掉
Open App.Path & "\ZB\1.txt" For Append As #1 '继续添加文本，会从上次保存的最后面继续添加