简单的问题 送100分

Question

应用程序所在的路径 app.path

Answer 1

mypath=app.path & iif(right(app.path,1)<>"\","\kkk.txt","kkk.txt")

Answer 2

dim myfile as string
myfile=app,path&"kkk,txt
open myfile for output as #1
.......
close #1
分啊，我快没分了!!

Answer 3

新建工程1，在上面加Text1,写下面的代码：
（在工程1保存的地方要有“kkk.txt”文件）
Private Sub Form_Load()
Dim myfile As String
    myfile = App.Path & "\" & "kkk.txt"
    Open myfile For Output As #1
    Text1.Text = myfile
    Close #1
End Sub