텍스트 파일로 바탕화면에 저장하기

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