vb小问题！vb读取txt中的文字给label

txt文件在app.path里面，名字是config.txt
config.txt中有两行，每行有一个数字，我要分别读取给label1和label2.



顺便问下如何保存label1和label2.中的数字到config.txt

追问：Dim fso, f1啥意？

Private Sub Form_Unload(Cancel As Integer)啥意？
Set fso = CreateObject("Scripting.FileSystemObject")啥意？
Set f1 = fso.OpenTextFile(App.Path & "\config.txt", 1)啥意？

答案：Private Sub Form_Load()
    Dim fso, f1
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f1 = fso.OpenTextFile(App.Path & "\config.txt", 1)
    Label1.Caption = f1.ReadLine
    Label2.Caption = f1.ReadLine
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Dim fso, f1
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f1 = fso.OpenTextFile(App.Path & "\config.txt", 2)
    f1.WriteLine Label1.Caption
    f1.WriteLine Label2.Caption
End Sub

其他：这类教程很多，请自己百度 “VB 文件操作” 。 

上一个：跪求VB建立宽带连接（账号密码在代码中写入）
下一个：我用了VB做了一个软件 这个软件是软件下载区