急问在VB中打开.TXT文件的获得程序当前路径的问题,在线等????

Question

 Open app.path & "\tel.txt" For Input As #1

Answer 1

Dim inp As String
 Open App.Path &"\tel.txt" For Input As #1
 Input #1, inp
 Close #1
 telcodetxt.Text = inp楼主对字符串连接这块还不大清楚

Answer 2

Private Sub Command2_Click()
Dim tmp As String
Open "F:\access\test.txt" For Input As #1
tmp = Input(LOF(1), #1)
Close #1
tmp = UCase(tmp)
Open "F:\access\test.txt" For Output As #1
Print #1, tmp
Text1.Text = tmp
Close #1End Sub