반응형

아래 코드는 폴더를 생성, 파일을 생성, 파일에 글도 쓴다.

    Set fso = CreateObject("Scripting.FileSystemObject")

    ' 현재경로에 임시 폴더 생성, 이미 있는경우 경고 발생, 에러 무시 코드 넣기
    On Error Resume Next
    Set txtFile = fso.CreateFolder(".\TEMP")
    On Error GoTo 0

    ' 현재경로에 파일 생성
    Set txtFile = fso.CreateTextFile(".\test.txt", true)


    ' 값 쓰기 아래 
    txtFile.Writeline("hello world")

    
    txtFile.close

 

(결과)

빈 폴더가 생성됨.

파일이 생성되고 글자가 쓰여있음

 

반응형

+ Recent posts