vba 创建带有自动提示的 FileSystemObject 对象，报错：对象变量或 With 变量未设置

Private Sub Workbook_Open()    
    Dim fso As Scripting.FileSystemObject    
            
    Dim root_path$
    root_path = "D:\工资单"
    
    '如果 D 盘中不存在文件夹 “工资单”，就创建
    If Not fso.FolderExists(root_path) Then
        fso.CreateFolder root_path
    End If    
End