508.txt

来自「Java Script & VB Script 教程」· 文本 代码 · 共 33 行

IsRootFolder 属性 
 
Microsoft® Visual Basic® Scripting Edition
IsRootFolder 属性
语言参考 
版本 3 
 
请参阅 应用于
描述
如果指定的文件夹是根文件夹，返回 True；否则返回 False。
语法
object.IsRootFolder
object 应为 Folder 对象的名称。
说明
以下代码举例说明如何使用 IsRootFolder 属性：
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Sub DisplayLevelDepth(pathspec)
    Dim f, n
    Set f = fs.GetFolder(pathspec)
    If f.IsRootFolder Then
        MsgBox "指定的文件夹是根文件夹。"
    Else
        Do Until f.IsRootFolder
            Set f = f.ParentFolder
            n = n + 1
        Loop
        MsgBox "指定的文件夹是嵌套级为 " & n & " 的文件夹。"
    End If
End Sub