Function F_читать() Try Dim чит As String If System.IO.File.Exists("kv.dat") = False Then Лимит.Час = 1 Else Dim читать As New StreamReader("kv.dat", System.Text.Encoding.GetEncoding(1251)) Время.Час = читать.ReadLine Время.Минута = читать.ReadLine Время.Секунда = читать.ReadLine чит = читать.ReadLine Status = чит Лимит.Час = читать.ReadLine Лимит.Минута = читать.ReadLine Лимит.Секунда = читать.ReadLine Видео.Час = читать.ReadLine Видео.Минута = читать.ReadLine Видео.Секунда = читать.ReadLine День2 = читать.ReadLine Blok = читать.ReadLine читать.Close() End If Catch ex As Exception ' обработка ошибок Dim запись As New StreamWriter("kv.err", True) запись.WriteLine(" -------------------------------------------------------------- ") запись.WriteLine(ex.ToString) запись.Close() 'как здесь закрыть читать.Close() пишет не объявлен, мне потом к файлу не обратиться End Try End Function
← Декабрь 2012 → | ||||||
1
|
2
|
|||||
---|---|---|---|---|---|---|
3
|
4
|
5
|
6
|
7
|
8
|
9
|
10
|
11
|
12
|
13
|
15
|
16
|
|
17
|
18
|
19
|
20
|
22
|
23
|
|
24
|
25
|
26
|
27
|
28
|
29
|
30
|
31
|
Статистика
1.234 подписчиков
-1 за неделю
-1 за неделю