编程论坛 → VB.NET论坛

求高手指点VB.NET判断硬盘是否存在文件出错

endanger 发布于 2016-09-13 13:46， 1994 次点击

程序代码：

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

只有本站会员才能查看附件，请登录

5 回复

#2

梦幻倩影2016-09-13 14:45

是否存在文件,用

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

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

#3

梦幻倩影2016-09-13 14:46

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

#4

endanger2016-09-13 15:47

回复 3楼梦幻倩影

只有本站会员才能查看附件，请登录

还是不行

#5

梦幻倩影2016-09-13 16:15

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

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

#6

endanger2016-09-14 18:53

以下是引用梦幻倩影在2016-9-13 16:15:21的发言：

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

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

改全了，还是这么提示

1