#INCLUDE "windows.inc"
#INCLUDE "scrrun.inc"
DIM fso AS IFileSystem
DIM pFolder AS IFolder
' Create an instance of the FileSystemObject
fso = NEWCOM "Scripting.FileSystemObject"
' Get a reference to the IFile interface
pFolder = fso.GetFolder(UCODE$("C:\MyFolder"))
' Get and display the name
STDOUT "Name: " & ACODE$(pFolder.Name)