// Declare and initialize the variables

// Number of directories matching the criteria
NbDirectoryLS is int  
NbDirectory is int = 0
SearchCriterion is string
// Select the directory in which the directories will be listed
SearchCriterion = fSelectDir("", "Select a directory", ...
		"Searching for hidden directories")
// List of directories
NbDirectoryLS = fListDirectory("C:\MyDocuments", "DirectoryAttribute", ...
		&NbDirectoryLS)
// Display the number of files matching the criteria
Info("There are " + NbDirectoryLS + " hidden directories on " + ...
		NbDirectory + " listed directories")

// --------------------------------------------------------
// Local procedure called by fListDirectory
PROCEDURE DirectoryAttribute(Directory, Name, Change, NbDirectory)
// Declare the variable
NbDirectoryLS is int
// Hidden directory?
IF Position(fAttribute(Directory + Name), "H") <> 0 THEN
	Transfer(&NbDirectoryLS, NbDirectory, 4)
   	NbDirectoryLS ++
   	Transfer(NbDirectory, &NbDirectoryLS, 4)
   	// Display the name of the directory in the "LIST_FileList" list
   	ListAdd(LIST_FileList, Directory + Name)
END
RETURN True