В результате выполнения процедуры. 1)открывается файл с именем filename.txt и все содержимое файла, если

Sub vvodFile(ByVal filename AsString, _ ByRef Str AsString, _ ByRef T As TextBox) Try Str = My.Computer.FileSystem.ReadAllText(filename) T.Text = Str Catch ex As Exception MsgBox("ошибка при чтении файла") EndTry EndSub

1) открывается файл с именем filename.txt и все содержимое файла, если он существует,записывается в строковую переменную*

2) генерируется исключение IOException

3) если такого файла нет, то он создается, открывается файл с именем filename.txt и происходит добавления запись в файл

4) генерируется исключение IOException

5) открывается файл с именем filename.txt и происходит запись всей строки

В результате выполнения процедуры

Sub vivodFile(ByVal filename AsString, ByRef Str3 AsString) Try My.Computer.FileSystem.WriteAllText(filename, Str3, False) CatchexAsException MsgBox("ошибка при сохранении (создании) файла") EndTry EndSub

1) если такого файла нет, то он создается, открывается файл с именем filename.txt и все содержимое файла, если он существует, стирается, и записывается вся строка в файл*

2) генерируется исключение IOException

4) генерируется исключение IOException

5) открывается файл с именем filename.txt и происходит запись всей строки

В результате выполнения процедуры

Sub vivodFile(ByVal filename AsString, ByRef Str3 AsString) Try My.Computer.FileSystem.WriteAllText(filename, Str3, True) CatchexAsException MsgBox("ошибка при сохранении (создании) файла") EndTry EndSub

1) если такого файла нет, то он создается, открывается файл с именем filename.txt и все содержимое файла, если он существует, то данные добавляются в конец файла*

2) генерируется исключение IOException

4) генерируется исключение IOException

5) открывается файл с именем filename.txt и происходит запись всей строки

Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями: