Возникла следующая проблема: при выполнении процедуры Form1_Load программа получает доступ к некоему файлу (Katalog.txt) для считывания информации. Но при попытке выполнить другую процедуру и получить доступ к файлу на запись программа сообщает об ошибке ("невозможно получить доступ к файлу ...Katalog.txt т.к. он используется другим процессом")
read.close() я поставил. Что тогда не так? Help please!
Код процедуры Form1_load:
- Код: Выделить всё
Private Sub AddingSubstances(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
If File.Exists("Katalog.txt") Then
read = File.OpenText("Katalog.txt")
subes = Regex.Split(read.ReadToEnd, vbCrLf)
For Each sbe As String In subes
If sbe <> "" Then
comp = Regex.Split(sbe, "\|")
Select Case comp(2)
Case "Простое вещество"
provNasv(cmbPV)
Case "Кислота"
provNasv(cmbKis)
Case "Основание"
provNasv(cmbOsn)
Case "Оксид"
provNasv(cmbOks)
Case "Гидрид"
provNasv(cmbHyd)
Case "Соль"
provNasv(cmbSol)
End Select
Else
Exit Sub
End If
Next
Else
MsgBox("К сожалению не найден файл Katalog.txt. Работоспособность вкладки Каталог веществ не гарантируется.", _
MsgBoxStyle.Critical, "UCIS")
End If
read.Close()
Catch ex As Exception
MsgBox("Произошла следующая ошибка: " & ex.Message, _
MsgBoxStyle.Critical, "UCIS")
End Try
