[Visual Basic] 비주얼베이직 스크립트 (VBScript) 파일 쓰기 (File write log, text file)

 

<경로에 파일 생성하여 쓰기>

Dim  fso, fileName, filePath, storing, str, LogFile

' 저장하고자 하는 파일 명, 저장 경로 설정
fileName = "myLog.txt"
filePath = "c:\LogFiles\"
storing = filePath & fileName

' string도 내용 안에 넣을 수 있음. (24번 줄에 추가함)
str ="Hello World"

' 특정 경로에 파일 생성하여 로고 생성
Set fso = CreateObject("Scripting.FileSystemObject")

MsgBox "Logfile path is " & filePath & fileName,,"Check your Path"

' LogFile에 파일생성 후 Write가 가능하도록 object 생성
' WriteBlankLines(아래칸이동)
' vbCrLf : 케리지 리턴 (엔터키)
' WriteLine vs Write : WriteLine는 출력 이후 줄을 바꿉니다. Write 는 출력만 합니다.

Set LogFile = fso.CreateTextFile(storing, True)
LogFile.Write("This is a test write to the logfile")
LogFile.WriteBlankLines(3)
LogFile.Write("The Value of string 3 is " & str & vbCrLf)
LogFile.WriteBlankLines(2)
LogFile.WriteLine("Closing the Logfile")
LogFile.Write("end")
LogFile.close

MsgBox "Log file was successfully created.",,"Done!"

반응형

(결과)

어느 경로에 생성되었는지 알림

생성이 되었다고 알림

    str에 추가한 문자열도 잘 들어가있음, 문자열 변경 후 end도 잘 들어감