Объясните назначение оператора 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

Оцени полезность:

14   голосов , оценка 4.357 из 5