VB中 如何自动检查有无指定名称TXT 如没有自动创建TXT 然后写入文件

来源：百度知道 编辑：UC知道 时间：2024/05/28 12:41:17
我做了个计时器 就是从前一时间的某时段发生事件--到现在已经多久的计时器 每次要读取1.TXT 但是这是我建立好的，要实现找不到1.txt是 自动创建到固定目录下 固定名称TXT 并写入 请高手给写个代码示例

Open "d:\aa.txt" For Append As #1
Close #1 '如果没有则创建文件
Dim str
Text1.Text = ""
Open "d:\aa.txt" For Input As #1 '读取
Do While Not EOF(1)
Line Input #1, str
Text1.Text = str

Loop
Close #1
Open "d:\aa.txt" For Output As #1
Print #1, Text1.Text '文本保存
Close #1