如何在VBA中创建文件夹并将txt文件放入其中

Sub CreateFolderAndMoveFile()
    Dim fso As New Scripting.FileSystemObject
    Dim folderPath As String
    Dim filePath As String
    
    ' 设置文件夹路径
    folderPath = "C:\Path\To\Folder"
    
    ' 创建文件夹
    fso.CreateFolder folderPath
    
    ' 设置文件路径
    filePath = folderPath & "\example.txt"
    
    ' 创建文本文件
    Open filePath For Output As #1
    Print #1, "This is an example text file."
    Close #1
End Sub