The following code illustrates the use of the
Path property with a
ParentFolder object:
#INCLUDE "windows.inc"
#INCLUDE "scrrun.inc"
DIM fso AS IFileSystem
DIM pFile AS IFile
DIM pFolder AS IFolder
' Create an instance of the FileSystemObject
fso = NEWCOM "Scripting.FileSystemObject"
' Get a reference to the IFile interface
pFile = fso.GetFile(UCODE$("C:\MyPath\MyFile.txt"))
' Get a reference to the parent's IFolder interface
pFolder = pFile.ParentFolder
' Get and display the name of the parent folder
MSGBOX ACODE$(pFolder.Name)