Private Sub Fm_Login_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Dir(Application.StartupPath"\login.ini") <> "" Then '判断软件目录是否存在login.ini文件
            Dim sb As New System.Text.StringBuilder
            Dim sr As  = New IO.StreamReader(Application.StartupPath"\login.ini")
            sb.Append(sr.ReadToEnd)
            Tx_Sever.Text = sb.ToString
            sr.Close()
        Else
            Tx_Sever.Text = ""
        End If
    End Sub

是否存在文件,用

If File.Exists(Application.StartupPath & "\login.ini") = False Then
            MsgBox("选择的文件不存在!")
            Exit Sub
        End If

[此贴子已经被作者于2016-9-13 14:55编辑过]

别忘了在Public Class Form1的前面加上：
Imports

还是不行

是不是你的代码没改全，要加 &

IO.StreamReader(Application.StartupPath"\login.ini")

改全了，还是这么提示