Ich hab das Problem das mir VB sagt objRead und objWrite nicht entlang allen Ausnahmepfaden verworfen werden. und ich Soll System.IDisposable.Dispose für ObjRead und ObjWrite aufrufen, bevor alle verweise darauf außerhalb des gültigen Bereichs liegen.
Warum ist das so? Und was kann ich dagegen tun?
VB.NET-Quellcode
- Imports System
- Imports System.IO
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim objRead As New StreamReader("Path.txt")
- Dim lin As String = objRead.ReadLine()
- Dim folderDlg As New FolderBrowserDialog
- folderDlg.ShowNewFolderButton = True
- If (folderDlg.ShowDialog() = DialogResult.OK) Then
- Dim root As Environment.SpecialFolder = folderDlg.RootFolder
- If File.Exists("Path.txt") = False Then
- MsgBox("Bitte geben Sie einen Speicherort für Ihr Projekt an.", vbInformation, "Pfadangabe")
- Dim objWriter As New StreamWriter("Path.txt", False)
- objWriter.WriteLine(folderDlg.SelectedPath)
- objWriter.Close()
- Else
- For Each folder As String In IO.Directory.GetDirectories(lin)
- ComboBox1.Items.Add(New IO.DirectoryInfo(folder).Name)
- Next
- End If
- End If
- 'Alles schliesen
- objRead.Close()
- End Sub
Warum ist das so? Und was kann ich dagegen tun?