IsRootFolder 属性

[code]Function DisplayLevelDepth(pathspec)Dim fso, f, n Set fso = CreateObject("Scripting.FileSystemObject")Set f = fso.GetFolder(pathspec)    If f.IsRootFolder Then        DisplayLevelDepth ="[/code]指定的文件夹是根文件夹。[code]"[/code][code]    Else[/code][code]        Do Until [b]f.IsRootFolder[/b][/code][code]            Set f = f.ParentFolder[/code][code]            n = n + 1[/code][code]        Loop[/code][code]       DisplayLevelDepth ="[/code]指定的文件夹是嵌套级为[code] " & n & " [/code]的文件夹。[code]"[/code][code]    End If[/code][code]End Function[/code]