我想VB所在磁盘的根目录下写入一些文本，如何设置路径？

来源：百度知道编辑：UC知道时间：2024/07/02 20:17:44

例如：我的程序在“D:\ABC\”中，想向D:\AAA.TXT中写东西（程序无论放在哪里都可以往相应的根目录下写），如何能做到？

dim a as string
a=mid(app.path,1,3)
open a & aaa.txt for append as #1
print #1
close #1

Dim a
a = Mid(App.Path, 1, 3)
Open a & "aaa.txt" For Output As #1
Print #1, Text1.Text
Close #1

open "d:\aaa.txt" for output as #1
a="你想写入的东西"
print#1,a
close #1