CreateTextFile 메소드

지정된 파일 이름을 생성하고 파일에서 읽거나 파일에 쓰는 데 사용할 수 있는 TextStream 객체를 반환합니다.

구문

object.CreateTextFile(filename[, overwrite[, unicode]])

인수

• Object: 필수. 항상 FileSystemObject의 이름입니다.
• Filename: 필수. 생성할 파일을 확인하는 문자열 표현식입니다.
• Overwrite: 선택사항. 기존 파일을 덮어쓸 수 있는지 여부를 나타내는 부울 값입니다. 파일을 덮어쓸 수 있는 경우 값은 true이고 덮어쓸 수 없는 경우 false입니다.

• Unicode: 선택사항. 파일이 Unicode 또는 ASCII 파일로 생성될지 여부를 나타내는 부울 값입니다. 파일이 Unicode 파일로 생성되는 경우 true이고, ASCII 파일로 생성되는 경우 false입니다.

  주:

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

주석

다음 코드는 CreateTextFile 메소드를 사용하여 텍스트 파일을 생성하고 여는 방법을 보여줍니다.

예 1:

Sub CreateAfile
   Dim fso, tso
  Set fso = CreateObject("Scripting.FileSystemObject")
   Set tso = fso.CreateTextFile("c:\testfile.txt", True)   
   tso.Close
End Sub
CreateAfile

덮어쓰기 인수가 false이면 기존 파일 이름에 대해 오류가 발생합니다.

예 2: CreateNewFile

Sub CreateNewFile()
    Dim fso, tso
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set tso = fso.CreateTextFile("C:\example1.txt", True)   ' Overwrites if the file exists.
    tso.WriteLine("This is a new text file.")   ' Write some text to the file.
    tso.Close   ' Close the file.
     Set fso = Nothing
End Sub
CreateNewFile

예 3:

Sub CreateFileNoOverwrite ()
    Dim fso, tso
    Set fso = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    Set tso = fso.CreateTextFile("C:\Temp\testfile.txt", False)   ' Do not overwrite if the file exists.
    myerr = Err.Number
    If myerr <> 0 Then
        ‘Error handling code File already exists and won't be overwritten."
    Else
        tso.WriteLine("This file won't be overwritten if it exists.")   ' Write some text to the file.
        tso.Close   ' Close the file. 
    End If
    Err.Clear
    On Error GoTo 0
    Set fso = Nothing
End Sub

CreateFileNoOverwrite