OpenTextFile 메소드

지정된 파일을 열고 파일에서 읽기, 쓰기 또는 파일에 추가하는 데 사용할 수 있는 TextStream 객체를 반환합니다.

구문

object.OpenTextFile(filename[, iomode[, create]])

인수:

• Object: 필수. 이 객체는 항상 FileSystemObject의 이름입니다.
• Filename: 필수. 열 파일을 확인하는 문자열 표현식입니다.
• Iomode: 선택사항. ForReading, ForWriting 또는 ForAppending의 세 상수 중 하나일 수 있습니다.
• Create: 선택사항. 지정된 파일 이름이 없을 경우 새 파일을 생성할 수 있는지 여부를 나타내는 부울 값입니다. 새 파일이 생성되면 값이 True이고 생성되지 않으면 False입니다. 생략할 경우 새 파일이 생성되지 않습니다.

• Format: 선택사항. 열린 파일의 형식을 나타냅니다.

  주:

  Format 인수는 휴면 상태이며 VB 스크립트 구문을 모방하기 위해 유지됩니다. 아무런 기능도 하지 않습니다. 생성되는 모든 파일은 Unicode 형식으로만 표시됩니다.

설정

iomode 인수는 다음 설정을 포함할 수 있습니다.

주석

다음 코드는 OpenTextFile 메소드의 사용을 보여줍니다.

예 1:

Sub OpenFileForReading()
    Const ForReading = 1
    Dim fso, tso
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set tso = fso.OpenTextFile("C:\example1.txt", ForReading)    
    tso.Close               ' Close the file.

    Set tso = Nothing
    Set fso = Nothing
End Sub

Call OpenFileForReading
'If C:\example1.txt is not present then code will throw an error. 

예 2:

Sub OpenFileForWriting()
    Const ForWriting = 2
    Dim fso, file
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile("C:\example2.txt", ForWriting, True)
    
    file.WriteLine("This is written to the file.")   ' Writes text to the file.
    file.Close               ' Close the file.

    Set file = Nothing
    Set fso = Nothing
End Sub

Call OpenFileForWriting
'Creates C:\example2.txt and writes a line "This is written to the file."

예 3:

Sub OpenFileForAppending()
    Const ForAppending = 8
    Dim fso, file
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile("C:\example2.txt", ForAppending, True)
    
    file.WriteLine("This line is appended.")   ' Appends text to the file.
    file.Close               ' Close the file.

    Set file = Nothing
    Set fso = Nothing
End Sub

Call OpenFileForAppending
'Creates C:\example2.txt and writes a line "This line is appended.". If file already exists it appends this line.

예 4:

Sub OpenFileWithCreateOption()
    Const ForWriting = 2
    Dim fso, file
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile("C:\example2.txt", ForWriting, True)   ' Creates the file if it doesn't exist.

    file.WriteLine("New File created and text written.")   ' Writes text to the file.
    file.Close               ' Close the file.
 
    Set file = Nothing
    Set fso = Nothing
End Sub

Call OpenFileWithCreateOption
'Overwrites C:\example2.txt and writes a line "New File created and text written.". If file does not exists then it creates it.