IsRootFolder (Propiedad)

           

Descripción

Devuelve True si la carpeta especificada es la carpeta raíz y False si no lo es.

Sintaxis

objeto.IsRootFolder

El objeto es siempre un objeto Folder.

Comentarios

El código siguiente demuestra la utilización de la propiedad IsRootFolder:

Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Sub DisplayLevelDepth(pathspec)
    Dim f, n
    Set f = fs.GetFolder(pathspec)
    If f.IsRootFolder Then
        MsgBox "La carpeta especificada está en la carpeta raíz."
    Else
        Do Until f.IsRootFolder
            Set f = f.ParentFolder
            n = n + 1
        Loop
        MsgBox "La carpeta especificada está anidada" & n & " niveles."
    End If
End Sub