EXCEL VBA -创建目录和文件夹(如果尚未存在

Sub CreateFolderAndFile()
    Dim fso As Object
    Dim folderPath As String
    Dim filePath As String
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 设置目录路径和文件路径
    folderPath = "C:\MyFolder"
    filePath = "C:\MyFolder\MyFile.txt"
    
    ' 检查目录是否存在，如果不存在则创建目录
    If Not fso.FolderExists(folderPath) Then
        fso.CreateFolder folderPath
    End If
    
    ' 检查文件是否存在，如果不存在则创建文件
    If Not fso.FileExists(filePath) Then
        fso.CreateTextFile filePath
    End If
    
    ' 释放对象
    Set fso = Nothing
End Sub