Question

好的，我的代码如下所示。

    Dim file As System.IO.StreamWriter
    file = My.Computer.FileSystem.OpenTextFileWriter("E:/Med/Dra.txt", False)
    file.WriteLine(NameBasic)
    file.WriteLine(LastBasic)
    file.WriteLine(PhoneBasic)
    file.Close();

所有这些都是我为文本框设置的变量。这是OnbuttonClick(...

现在我的onload我从记事本中取出信息，这是代码，

    Dim read As System.IO.StreamReader
    read = My.Computer.FileSystem.OpenTextFileReader("E:/Med/Dra.txt")
    lblNameBasic.Text = read.ReadLine
    lblLastBasic.Text = read.ReadLine
    lblPhoneBasic.Text = read.ReadLine
    read.Close();

我已将记事本（txt文件）放在名为med的flashdrive文件夹中我得到了保存信息工作和加载，所以我把flashdrive带到另一台电脑，我得到了这个讨厌的错误，谈论System.IO和所有其他的东西。

然后它提示我，你想继续错误，还是退出。我点击continue，但未加载所有已保存的数据。我在这里做错了吗？

也很抱歉今天有很多问题。（.exe位于flashdrive，med文件夹中）。

Answer 1

首先，您的路径不正确 - E:/Med/Dra.txt应为E:\Med\Dra.txt。在这里你如何使用打开文件对话框 - 这只是基础，你需要处理错误处理等。

Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.InitialDirectory = "c:\"
openFileDialog1.Filter = "txt files (*.txt)|*.txt"
openFileDialog1.RestoreDirectory = True 

If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then 

    Dim read As System.IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader(openFileDialog1.FileName)           

End If

我认为，您遇到错误的主要原因是错误的路径。您还可以检查路径是否存在

If Not File.Exists("E:\Med\Dra.txt") Then 
    MessageBox.Show("There is no such file")
    Exit Sub
End If
' Code to open non existing file will be skipped

应用程序vb.net中发生了未处理的异常

1 个答案: