CLEAR

lcDir = [C:\Documents and Settings\Administrator\My Documents\]

loShell = CreateObject("Shell.Application")
loFolder = loShell.Namespace( lcDir )

For Each lcFileName in loFolder.Items
	lcDirName = loFolder.GetDetailsOf(lcFileName, 0)
	if !directory(lcDirName)  
		?'Dir not found: ' + lcDirName  
	ENDIF 
NEXT