你可以用第一行存放用户名,第二行存放服务器名。
读取的时候,分割处理
Dim str As String = "123" & chr(13) & "456"FileSys.WriteAllText("d:\test.txt", str, False, Encoding.Default)
'---------------
Dim s As String = FileSys.ReadAllText("d:\test.txt", Encoding.Default)Dim ary() As String = s.Split(chr(13))msgbox(ary(0))msgbox(ary(1))