VB读记事本中的内容

Question

VB对数据库进行操作。想把要访问的数据库的路径写到记事本中，这样VB每次访问数据库时先读记事本中数据库中的路径，然后去访问这个路径下的数据库。这样可以随时改变数据库的路径。请问怎么做啊？最好能有个简单的实例。在这里先谢过了。

Answer 1

Open "d:\记事本" For Output As #1 
Print #1, Text1 
Close 链接数据库....

Answer 2

    appPath = App.Path() & "\"
    appPath = "d:\trans\"
     '读取ini文件，获取参数
    Dim FileTxt As String, StrArray() As String, iNum As Integer, i As Integer
    FileTxt = String(FileLen(appPath & "trans.ini"), " ")
    iNum = FreeFile()
    Open appPath & "trans.ini" For Binary As iNum
    FileTxt = Input(LOF(iNum), iNum)
    Close iNum
    FileTxt = Replace(FileTxt, vbCrLf, "")
    TxtArray = Split(FileTxt, ";")
    iNum = UBound(TxtArray)
    If iNum > 1 Then
        '读取目标数据库参数
        StrArray = Split(TxtArray(0), ",")
        local_ip = Split(StrArray(0), "=")(1)
        local_user = Split(StrArray(1), "=")(1)
        local_pwd = Split(StrArray(2), "=")(1)
        local_db = Split(StrArray(3), "=")(1)
        '读取远程数据库参数
        For i = 1 To iNum - 1
            StrArray = Split(TxtArray(i), ",")
            List1.AddItem Split(StrArray(0), "=")(1)
            List1.ItemData(List1.NewIndex) = Val(Split(StrArray(1), "=")(1))
        Next
    End If

Answer 3

Open "d:\记事本.txt" For Output As #1 
Print #1, Text1 
Close 

Answer 4

    Dim MyArr() As String 
          
        FileLineToArr "d:\10.txt", MyArr()  '文件行到数组 
          
          Public Function FileLineToArr(FileName As String, MyArr() As String) As Boolean 
                          Dim MyArrIndex As Long, FNumber As Integer 
                          ReDim MyArr(0 To 120000) As String 
                          
                          FNumber = FreeFile() 
                          Open FileName For Input As #FNumber 
                              While Not EOF(1) 
                                    Line Input #FNumber, MyArr(MyArrIndex) 
                                    MyArrIndex = MyArrIndex + 1 
                              Wend 
                          Close #FNumber 
                          
                          If MyArrIndex > 0 Then 
                              ReDim Preserve MyArr(0 To MyArrIndex - 1) As String 
                              FileLineToArr = True 
                          Else 
                              ReDim MyArr(0 To 0) As String 
                          End If 
          End Function

Answer 5

示例代码如下：
【TXT_PATH：你要写入的记事本的合法路径；DB_PATH ：字符串变量，即你的数据库路径】myfile=FreeFile
Open TXT_PATH For Output As #myfile
Print #myfile, DB_PATH 
Close #myfile