Open "d:\已经知道位置的.txt" For Input As #1
用这个自定义函数(百度排版坑爹)
Function ReadTxt(TxtPathAsString) As String
Dim by() As Byte
Open TxtPath For Binary As #1
ReDim by(1 To LOF(1))
Get #1, , by()
Close #1
ReadTxt = StrConv(by, vbUnicode)
End Function
Private Sub Form_Load()
text1.Text = ReadTxt("C\已经知道位置的文件.txt")
End Sub
Open "你的文件位置" For Input As #1
这是打开后向文件中写,要是读的话可以用output。也可用random来是写定长的读写功能
如:Open App.Path & "\y.txt" For random As #1 len=100