Объясните назначение оператора With - End With - VB
Формулировка задачи:
Можно объяснить для чего нужен оператор with .. end with? и простенький хотя бы пример использования этого оператора при работе с файлами?
Решение задачи: «Объясните назначение оператора With - End With»
textual
Листинг программы
Const ForAppending As Long = 8, ForReading As Long = 1, ForWriting As Long = 2 Sub Read_Files() Dim fso As Object, txtfile Dim fil1 As Object With CreateObject("Scripting.FileSystemObject") 'Set txtfile = .CreateTextFile("c:\testfile.txt", True) .CreateTextFile "e:\testfile.txt", True MsgBox "Writing file" With .GetFile("e:\testfile.txt") ' Запись линии With .OpenAsTextStream(ForWriting) .Write "Hello World" .Close End With ' Чтение содержания файла With .OpenAsTextStream(ForReading) s = .ReadLine MsgBox s .Close End With End With End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д