텍스트파일 출력1 텍스트 파일로 바탕화면에 저장하기 더보기 Option Explicit Sub ExportToDesktop() Dim FileNum& Dim DesktopPath$ Dim FilePath$ DesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") FilePath = DesktopPath & "\example.txt" FileNum = FreeFile() Open FilePath For Output As #FileNum Print #FileNum, "ExaNam world!" Close #FileNum End Sub 2023. 2. 16. 이전 1 다음
