2015-07-05 87 views
0

好的,所以我的代碼看起來像下面。未處理的異常發生在應用程序vb.net

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 一個閃存盤上的文件夾中我得到了保存信息來工作和加載,所以我把閃存驅動器帶到另一臺電腦,我得到了這個令人討厭的錯誤,談論System.IO和所有這些其他的東西。

然後它會提示我,您是否想繼續出現錯誤或退出。 我點擊continue比所有保存的數據不加載。我在這裏做錯了什麼?

今天也很抱歉的很多問題。 (.exe也位於閃存驅動器,med文件夾中)。

+1

我敢打賭,當您將驅動器插入另一臺計算機時,它不是'E:'。 – Plutonix

+0

是的,它表明它是J,我怎麼能使它成爲一個普遍的東西? @Plutonix – Nick

+0

使用OpenFileDialog並瀏覽到您的文件以獲取位置,並將該位置傳遞給OpenTextFileReader。 – Shar1er80

回答

0

首先,您的路徑不正確 - 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 
相關問題