Vb.net 未知错误无法从计算机中打开。基本的

为什么我不能在运行程序时打开一个文件，它只显示“保存”或“取消”

为什么我不能打开一个文件，当我运行程序时，它说的是“保存”或“取消”。我试图做的是从我的文档中打开一个文件，并显示在下面的文本框中。我有保存文件工作，但没有打开的文件

使用OpenFileDialog控件而不是文本框来获取要打开的文件路径，似乎对您有好处

下面是一个例子：

Sub ShowFileContents(ByVal strFileName As String)
    Dim fs As New FileStream(strFileName, FileMode.Open, FileAccess.Read)
    Dim TextFile As New StreamReader(fs)

    Me.txtFileContents.Text = Nothing

    Dim strLineOfText As String
    Do While TextFile.Peek > -1
        strLineOfText = TextFile.ReadLine()

        Me.txtFileContents.Text = Me.txtFileContents.Text & strLineOfText & vbCrLf
    Loop
    TextFile.Close()
    fs.Close()
End Sub

---

您能分享一个屏幕截图吗？看起来您可以将其缩短为

txtFileContents.Text=File.ReadAllText（strFileName）

。我几乎看不到任何内容。请删除不相关的区域。在Windows7中，您可以按Windows键，然后键入

snip

；它应该突出显示“剪贴工具”。按Enter键运行它，然后选择要抓取的区域。另存为.png文件以保持清晰。@AndrewMorton：我一直使用绘画，即使是升级到Windows7之后。您可以指定CTRL+ALT+P来启动它，然后使用ALT+PrintScreen来最小化所需的工作量。

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim ofp As New OpenFileDialog
    If ofp.ShowDialog = Windows.Forms.DialogResult.OK Then
        ShowFileContents(ofp.FileName)
    End If
End Sub
Sub ShowFileContents(ByVal strFileName As String)
    Dim TextFile As New StreamReader(strFileName)
    txtFileContents.Text = Nothing
    Do While Not TextFile.EndOfStream
        txtFileContents.AppendText(TextFile.ReadLine() & vbCrLf)
    Loop
    TextFile.Close()
End Sub